diff options
| author | Brian Somers <brian@FreeBSD.org> | 2002-04-17 12:14:29 +0000 |
|---|---|---|
| committer | Brian Somers <brian@FreeBSD.org> | 2002-04-17 12:14:29 +0000 |
| commit | 1a80bf3aa31e03fefc251136efc3d8cd2301e3a3 (patch) | |
| tree | 43ed2c970ab87a40538ad18965669c79791458b6 /misc/p5-DataCash/files/patch-File::KGlob2RE.pm | |
| parent | Add patch from SF PR #541980. This fixes 4suite. (diff) | |
Replace some \N occurances with $N to silence perl -w
Notes
Notes:
svn path=/head/; revision=57802
Diffstat (limited to 'misc/p5-DataCash/files/patch-File::KGlob2RE.pm')
| -rw-r--r-- | misc/p5-DataCash/files/patch-File::KGlob2RE.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/misc/p5-DataCash/files/patch-File::KGlob2RE.pm b/misc/p5-DataCash/files/patch-File::KGlob2RE.pm new file mode 100644 index 000000000000..9c7a754c60c0 --- /dev/null +++ b/misc/p5-DataCash/files/patch-File::KGlob2RE.pm @@ -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 |