Change 33144: [PATCH] fix for regression to File/DosGlob.pm

[Steve Hay]

Change 33144 by [EMAIL PROTECTED] on 2008/01/31 09:44:41

        Subject: [PATCH] fix for regression to File/DosGlob.pm
        From: "Davies, Alex" <[EMAIL PROTECTED]>
        Date: Wed, 30 Jan 2008 12:39:11 -0500
        Message-ID: <[EMAIL PROTECTED]>
        
        Fixes File::DosGlob's handling of drive relative glob patterns
        (e.g. "D:*pl")

Affected files ...

... //depot/perl/lib/File/DosGlob.pm#17 edit

Differences ...

==== //depot/perl/lib/File/DosGlob.pm#17 (text) ====
Index: perl/lib/File/DosGlob.pm
--- perl/lib/File/DosGlob.pm#16~12235~  2001-09-26 05:53:16.000000000 -0700
+++ perl/lib/File/DosGlob.pm    2008-01-31 01:44:41.000000000 -0800
@@ -9,7 +9,7 @@
 
 package File::DosGlob;
 
-our $VERSION = '1.00';
+our $VERSION = '1.01';
 use strict;
 use warnings;
 
@@ -35,7 +35,7 @@
        # 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);
End of Patch.