diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-21 14:15:26 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-21 14:15:26 +0000 |
| commit | 1b76c3e48b8e16bb4510c26f697e9e941aa4afcb (patch) | |
| tree | 08a2021a6b5948b85d5a8dd298754b39adcbb716 /t/op/chdir.t | |
| parent | a31638381a2c454a53ba8572b431fb8aae70ac33 (diff) | |
| download | perl-1b76c3e48b8e16bb4510c26f697e9e941aa4afcb.tar.gz | |
U/WIN test tweak from John P. Linderman.
p4raw-id: //depot/perl@19581
Diffstat (limited to 't/op/chdir.t')
| -rw-r--r-- | t/op/chdir.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/chdir.t b/t/op/chdir.t index 2932b922ea..8929069f00 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; |