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

diff --git a/lib/File/DosGlob.pm b/lib/File/DosGlob.pm
index a1c27d5..496a14c 100644 (file)
--- 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);