From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 21 May 2003 14:15:26 +0000 (+0000)
Subject: U/WIN test tweak from John P. Linderman.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1b76c3e48b8e16bb4510c26f697e9e941aa4afcb;p=p5sagit%2Fp5-mst-13.2.git

U/WIN test tweak from John P. Linderman.

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

diff --git a/t/op/chdir.t b/t/op/chdir.t
index 2932b92..8929069 100644
--- a/t/op/chdir.t
+++ b/t/op/chdir.t
@@ -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 {
-    $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;