diff options
| author | Alex Davies <adavies@ptc.com> | 2008-01-30 07:39:11 -0500 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-01-31 09:44:41 +0000 |
| commit | a371bcf3a4271691f519def6bb3f44bce25441f5 (patch) | |
| tree | 2906afb61dfe1d1517e18102e79f33845c5d292f /lib/File | |
| parent | af20bb8057137141992add1089555f24d545d8bb (diff) | |
| download | perl-a371bcf3a4271691f519def6bb3f44bce25441f5.tar.gz | |
fix for regression to File/DosGlob.pm
From: "Davies, Alex" <adavies@ptc.com>
Message-ID: <A69AA663CE9BBC44AE1DA72483DE15DE07E02181@HQ-MAIL3.ptcnet.ptc.com>
Fixes File::DosGlob's handling of drive relative glob patterns
(e.g. "D:*pl")
p4raw-id: //depot/perl@33144
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/DosGlob.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/File/DosGlob.pm b/lib/File/DosGlob.pm index a1c27d5c32..496a14c137 100644 --- a/lib/File/DosGlob.pm +++ b/lib/File/DosGlob.pm @@ -9,7 +9,7 @@ package File::DosGlob; -our $VERSION = '1.00'; +our $VERSION = '1.01'; use strict; use warnings; @@ -35,7 +35,7 @@ sub doglob { # wildcards with a drive prefix such as h:*.pm must be changed # to h:./*.pm to expand correctly if ($pat =~ m|^([A-Za-z]:)[^/\\]|s) { - substr($_,0,2) = $1 . "./"; + substr($pat,0,2) = $1 . "./"; } if ($pat =~ m|^(.*)([\\/])([^\\/]*)\z|s) { ($head, $sepchr, $tail) = ($1,$2,$3); |