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)

p4raw-id: //depot/perl@31357

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 2ae76c9..441b312 100644 (file)
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -6,7 +6,7 @@ File::Path - Create or remove directory trees
 
 =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 @@ BEGIN {
 
 use Exporter ();
 use vars qw($VERSION @ISA @EXPORT);
-$VERSION = '2.00_03';
+$VERSION = '2.00_04';
 @ISA     = qw(Exporter);
 @EXPORT  = qw(mkpath rmtree);
 

diff --git a/lib/File/Path.t b/lib/File/Path.t
index 427ef25..9d047ae 100755 (executable)
--- a/lib/File/Path.t
+++ b/lib/File/Path.t
@@ -217,9 +217,9 @@ SKIP: {
 }
 
 {
-    $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 );