Integrate macperl patches #16926 and #16938;

[p5sagit/p5-mst-13.2.git] / lib / File / Path.t

diff --git a/lib/File/Path.t b/lib/File/Path.t
index 6e1414e..86b280d 100755 (executable)
--- a/lib/File/Path.t
+++ b/lib/File/Path.t
@@ -6,6 +6,7 @@ BEGIN {
 }
 
 use File::Path;
+use File::Spec::Functions;
 use strict;
 
 my $count = 0;
@@ -16,10 +17,11 @@ print "1..4\n";
 # first check for stupid permissions second for full, so we clean up
 # behind ourselves
 for my $perm (0111,0777) {
-    mkpath("foo/bar");
-    chmod $perm, "foo", "foo/bar";
+    my $path = catdir(curdir(), "foo", "bar");
+    mkpath($path);
+    chmod $perm, "foo", $path;
 
-    print "not " unless -d "foo" && -d "foo/bar";
+    print "not " unless -d "foo" && -d $path;
     print "ok ", ++$count, "\n";
 
     rmtree("foo");