diff options
| author | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2020-07-27 14:31:25 +0100 |
|---|---|---|
| committer | Dagfinn Ilmari Mannsåker <ilmari@ilmari.org> | 2021-11-02 18:01:42 +0000 |
| commit | 994b363a4c1338d882ccf9350de80be451f0bb08 (patch) | |
| tree | 00cc495e72d53d1479ab34874ea0ff56002395e8 /t/op/chdir.t | |
| parent | 4457f3fc414965b3f281e91fc2e24332a7149345 (diff) | |
| download | perl-994b363a4c1338d882ccf9350de80be451f0bb08.tar.gz | |
Remove AT&T UWIN support
UWIN is a UNIX compatibility layer for Windows. It was last released
in 2012 and has been superseded by Cygwin these days.
Diffstat (limited to 't/op/chdir.t')
| -rw-r--r-- | t/op/chdir.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/op/chdir.t b/t/op/chdir.t index b9df30d40a..44bc90f14d 100644 --- a/t/op/chdir.t +++ b/t/op/chdir.t @@ -29,9 +29,7 @@ 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 { - my $d = rel2abs(curdir); - $d = lc($d) if $^O =~ /^uwin/; - $d; + return rel2abs(curdir); } my $Cwd = abs_path; |