Change 33162 by [EMAIL PROTECTED] on 2008/01/31 22:54:31
Integrate:
[ 33127]
Formatting for C<<{ bydepth => 1 }>> doesn't seem to be working
right in the manpage.
[ 33144]
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/maint-5.10/perl/lib/File/DosGlob.pm#2 integrate
... //depot/maint-5.10/perl/lib/File/Find.pm#2 integrate
Differences ...
==== //depot/maint-5.10/perl/lib/File/DosGlob.pm#2 (text) ====
Index: perl/lib/File/DosGlob.pm
--- perl/lib/File/DosGlob.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
+++ perl/lib/File/DosGlob.pm 2008-01-31 14:54:31.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);
==== //depot/maint-5.10/perl/lib/File/Find.pm#2 (text) ====
Index: perl/lib/File/Find.pm
--- perl/lib/File/Find.pm#1~32694~ 2007-12-22 01:23:09.000000000 -0800
+++ perl/lib/File/Find.pm 2008-01-31 14:54:31.000000000 -0800
@@ -84,7 +84,7 @@
Reports the name of a directory only AFTER all its entries
have been reported. Entry point C<finddepth()> is a shortcut for
-specifying C<<{ bydepth => 1 }>> in the first argument of C<find()>.
+specifying C<{ bydepth =E<gt> 1 }> in the first argument of C<find()>.
=item C<preprocess>
End of Patch.
