This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Reconciling the Cwd/File::Spec differences
authorMichael G. Schwern <schwern@pobox.com>
Fri, 21 Sep 2001 19:20:40 +0000 (15:20 -0400)
committerAbhijit Menon-Sen <ams@wiw.org>
Sat, 22 Sep 2001 03:44:19 +0000 (03:44 +0000)
Message-Id: <20010921192040.E5494@blackrider>

p4raw-id: //depot/perl@12124

t/op/chdir.t

index 735d51f..af13e80 100644 (file)
@@ -8,8 +8,13 @@ BEGIN {
 
 # Might be a little early in the testing process to start using these,
 # but I can't think of a way to write this test without them.
 
 # Might be a little early in the testing process to start using these,
 # but I can't think of a way to write this test without them.
-use Cwd qw(abs_path cwd);
-use File::Spec::Functions qw(:DEFAULT splitdir);
+use File::Spec::Functions qw(:DEFAULT splitdir rel2abs);
+
+# Can't use Cwd::abs_path() because it has different ideas about
+# path seperators than File::Spec.
+sub abs_path {
+    rel2abs(curdir);
+}
 
 use Test::More tests => 25;
 
 
 use Test::More tests => 25;