This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
U/WIN test tweak from John P. Linderman.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 21 May 2003 14:15:26 +0000 (14:15 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 21 May 2003 14:15:26 +0000 (14:15 +0000)
p4raw-id: //depot/perl@19581

t/op/chdir.t

index 2932b92..8929069 100644 (file)
@@ -21,7 +21,11 @@ use File::Spec::Functions qw(:DEFAULT splitdir rel2abs splitpath);
 # Can't use Cwd::abs_path() because it has different ideas about
 # path separators than File::Spec.
 sub abs_path {
 # Can't use Cwd::abs_path() because it has different ideas about
 # path separators than File::Spec.
 sub abs_path {
-    $IsVMS ? uc(rel2abs(curdir)) : rel2abs(curdir);
+    my $d = rel2abs(curdir);
+
+    $d = uc($d) if $IsVMS;
+    $d = lc($d) if $^O =~ /^uwin/;
+    $d;
 }
 
 my $Cwd = abs_path;
 }
 
 my $Cwd = abs_path;