Change 31357 by [EMAIL PROTECTED] on 2007/06/08 10:35:34
Fix lib/File/Path.t failure on Win32
(Create a 'ZZ' directory instead of 'Z' because we already have a 'z'
which is the same as 'Z' on Win32's case-insensitive filesystem)
Affected files ...
... //depot/perl/lib/File/Path.pm#49 edit
... //depot/perl/lib/File/Path.t#9 edit
Differences ...
==== //depot/perl/lib/File/Path.pm#49 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#48~31349~ 2007-06-07 06:23:07.000000000 -0700
+++ perl/lib/File/Path.pm 2007-06-08 03:35:34.000000000 -0700
@@ -6,7 +6,7 @@
=head1 VERSION
-This document describes version 2.00_03 of File::Path, released
+This document describes version 2.00_04 of File::Path, released
2007-06-07.
=head1 SYNOPSIS
@@ -371,7 +371,7 @@
use Exporter ();
use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '2.00_03';
+$VERSION = '2.00_04';
@ISA = qw(Exporter);
@EXPORT = qw(mkpath rmtree);
==== //depot/perl/lib/File/Path.t#9 (xtext) ====
Index: perl/lib/File/Path.t
--- perl/lib/File/Path.t#8~31345~ 2007-06-07 01:01:18.000000000 -0700
+++ perl/lib/File/Path.t 2007-06-08 03:35:34.000000000 -0700
@@ -217,9 +217,9 @@
}
{
- $dir = catdir($tmp_base, 'Z');
+ $dir = catdir($tmp_base, 'ZZ');
@created = mkpath($dir);
- is(scalar(@created), 1, "create a Z directory");
+ is(scalar(@created), 1, "create a ZZ directory");
local @ARGV = ($dir);
rmtree( [grep -e $_, @ARGV], 0, 0 );
End of Patch.
