bike/dswim
1
0
Fork 0
mirror of https://github.com/fspc/dswim.git synced 2025-02-22 08:33:24 -05:00
Code Issues Projects Releases Wiki Activity

Redoing some \w regexp fixes .. was a + without a \

Browse Source
This commit is contained in:
freesource 2001-10-20 02:36:34 +00:00
parent d1be7ac479
commit c6e0099f51
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
SWIM/Deb.pm
View File

@ -59,8 +59,8 @@ sub deb_package {
# SITUATION 0 #
###############
if (m,\.\./|^\.\.$,) {
#if ($_ !~ m,/[\w-+]+/[\.\$\^\+\?\*\[\]\w-]*$,) {
if ($_ !~ m,/(\w-+)+/[\.\$\^\+\?\*\[\]\w-]*$,) {
#if ($_ !~ m,/[\w\+-]+/[\.\$\^\+\?\*\[\]\w-]*$,) {
if ($_ !~ m,/[\w\+-]+/[\.\$\^\+\?\*\[\]\w-]*$,) {
my $dd; tr/\/// ? ($dd = tr/\///) : ($dd = 1);
my @pwd = split(m,/,,$pwd);
s,\.\./,,g;
@ -952,8 +952,8 @@ sub menuo {
my $name = $2;
while (<MENU>) {
#print "$_\n";
#if (m,^usr\/lib\/menu\/(.*[\w-\+\.]$),) {
if (m,^usr\/lib\/menu\/(.*(\w-\+\.)$),) {
#if (m,^usr\/lib\/menu\/(.*[\w\+\.-]$),) {
if (m,^usr\/lib\/menu\/(.*(\w\+\.-)$),) {
print "#####menu for $name($1)#####\n";
system "$dpkg_deb --fsys-tarfile $argument | $tar xO $_";
print "\n";
@ -970,8 +970,8 @@ sub menuo {
open(MENU,"$tmp/fields.deb");
my $name = $2;
while (<MENU>) {
#if (m,^usr\/lib\/menu\/(.*[\w-\+\.]$),) {
if (m,^usr\/lib\/menu\/(.*(\w-\+\.)$),) {
#if (m,^usr\/lib\/menu\/(.*[\w\+\.-]$),) {
if (m,^usr\/lib\/menu\/(.*(\w\+\.-)$),) {
print "#####menu for $name($1)#####\n";
system "$ar -p $argument data.tar.gz | $tar xOz $_";
print "\n";