From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Fri, 22 Aug 2003 14:57:09 +0000 (+0200)
Subject: Re: maint @ 20803
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e7780b5602300c312c4e6b04e71654660380f12d;p=p5sagit%2Fp5-mst-13.2.git

Re: maint @ 20803
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <00dd01c368ac$e69146d0$0c2f1fac@R2D2>

p4raw-id: //depot/perl@20828
---

diff --git a/lib/File/Path.t b/lib/File/Path.t
index 86b280d..84575d7 100755
--- a/lib/File/Path.t
+++ b/lib/File/Path.t
@@ -17,14 +17,14 @@ print "1..4\n";
 # first check for stupid permissions second for full, so we clean up
 # behind ourselves
 for my $perm (0111,0777) {
-    my $path = catdir(curdir(), "foo", "bar");
+    my $path = catdir(curdir(), "mhx", "bar");
     mkpath($path);
-    chmod $perm, "foo", $path;
+    chmod $perm, "mhx", $path;
 
-    print "not " unless -d "foo" && -d $path;
+    print "not " unless -d "mhx" && -d $path;
     print "ok ", ++$count, "\n";
 
-    rmtree("foo");
-    print "not " if -e "foo";
+    rmtree("mhx");
+    print "not " if -e "mhx";
     print "ok ", ++$count, "\n";
 }