mirror of
https://git.FreeBSD.org/ports.git
synced 2024-10-24 21:01:20 +00:00
Replace some \N occurances with $N to silence perl -w
This commit is contained in:
parent
b0bf616a46
commit
1a80bf3aa3
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=57802
31
misc/p5-DataCash/files/patch-File::KGlob.pm
Normal file
31
misc/p5-DataCash/files/patch-File::KGlob.pm
Normal file
@ -0,0 +1,31 @@
|
||||
--- File/KGlob.pm.orig Wed Apr 17 13:05:33 2002
|
||||
+++ File/KGlob.pm Wed Apr 17 13:06:10 2002
|
||||
@@ -79,7 +79,7 @@
|
||||
if( m#(^|[^\\])(\\\\)*[\[\?\*]# ) { # Some kind of wildcard:
|
||||
push( @return, &pglob($_) ); # Find matching files.
|
||||
} else { # Just a string, perhaps with \-quoting:
|
||||
- s/\\(.)/\1/g; # Remove the \'s used for quoting.
|
||||
+ s/\\(.)/$1/g; # Remove the \'s used for quoting.
|
||||
push( @return, $_ );
|
||||
}
|
||||
}
|
||||
@@ -106,8 +106,8 @@
|
||||
$mid= substr( $temp, 0, $pos ); # Part between "{" and "}" #{
|
||||
$aft= substr( $temp, 1 + $pos ); # Part after "}"
|
||||
if( $mid =~ m#(^|[^\\])(\\\\)*$# ) { #{ The "}" is unquoted:
|
||||
- $mid =~ s/((^|[^\\])(\\\\))*,/\1\0/g; # Most unquoted ","s
|
||||
- $mid =~ s/((^|[^\\])(\\\\))*,/\1\0/g; # Remaining ones
|
||||
+ $mid =~ s/((^|[^\\])(\\\\))*,/$1$0/g; # Most unquoted ","s
|
||||
+ $mid =~ s/((^|[^\\])(\\\\))*,/$1$0/g; # Remaining ones
|
||||
return &mcat( $bef, $aft, split(/\0/,$mid) ); # Done!
|
||||
} # &mcat builds all of the resulting strings.
|
||||
} # &mcat also "unbrac"s $bef and $aft.
|
||||
@@ -228,7 +228,7 @@
|
||||
$nodots= "." ne substr($glob,0,1); # Skip all .*'s unless explicit
|
||||
chop $glob if $onlydirs= "/" eq substr($glob,-1,1);
|
||||
# File::KGlob2RE uses "%" for "any subdir(s)" but we don't so...
|
||||
- $glob =~ s#((^|[^\\])(\\\\)*)\%#\1\\%#g; # quote any unquoted "%"s.
|
||||
+ $glob =~ s#((^|[^\\])(\\\\)*)\%#$1\\%#g; # quote any unquoted "%"s.
|
||||
$re= &File::KGlob2RE::kglob2re( $glob ); # Change glob to regexp.
|
||||
$dir= "." if "" eq $dir;
|
||||
if( ! opendir( $hndl, $dir ) ) {
|
11
misc/p5-DataCash/files/patch-File::KGlob2RE.pm
Normal file
11
misc/p5-DataCash/files/patch-File::KGlob2RE.pm
Normal file
@ -0,0 +1,11 @@
|
||||
--- File/KGlob2RE.pm.orig Wed Apr 17 13:05:33 2002
|
||||
+++ File/KGlob2RE.pm Wed Apr 17 13:06:10 2002
|
||||
@@ -110,7 +110,7 @@
|
||||
warn "Unexpected end of file glob pattern: $glob\n";
|
||||
return undef;
|
||||
}
|
||||
- if( $re !~ s-$NOQT/\(\|,\.\*/\)$-\1/- ) { # X/%* -> ^X/
|
||||
+ if( $re !~ s-$NOQT/\(\|,\.\*/\)$-$1/- ) { # X/%* -> ^X/
|
||||
$re .= '$';
|
||||
} elsif( "" eq $re ) { # Since m// means something else:
|
||||
$re= "^"; # %/* -> anything
|
Loading…
Reference in New Issue
Block a user