From: Alex Davies <adavies@ptc.com>
Date: Wed, 30 Jan 2008 12:39:11 +0000 (-0500)
Subject: fix for regression to File/DosGlob.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a371bcf3a4271691f519def6bb3f44bce25441f5;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);