From: Steve Hay <SteveHay@planit.com>
Date: Fri, 8 Jun 2007 10:35:34 +0000 (+0000)
Subject: Fix lib/File/Path.t failure on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2f50e7fd8ced00f582fd5974d9ab13e4483aa17;p=p5sagit%2Fp5-mst-13.2.git

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