diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-22 20:15:05 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-22 20:15:05 +0000 |
| commit | 1f61f1191cda645b5e0f09904e55e8adb74c596c (patch) | |
| tree | 1e93e6e861da189159000e39f58d3b3c010bb635 /dist/Cwd | |
| parent | cba0911763351f6338999a8dd3e16f1c5f27cc5d (diff) | |
| download | perl-1f61f1191cda645b5e0f09904e55e8adb74c596c.tar.gz | |
Remove Mac OS classic special case code from Cwd's cwd.t
Diffstat (limited to 'dist/Cwd')
| -rw-r--r-- | dist/Cwd/t/cwd.t | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/dist/Cwd/t/cwd.t b/dist/Cwd/t/cwd.t index a97a4cb671..c9a218725b 100644 --- a/dist/Cwd/t/cwd.t +++ b/dist/Cwd/t/cwd.t @@ -14,7 +14,6 @@ use lib File::Spec->catdir('t', 'lib'); use Test::More; my $IsVMS = $^O eq 'VMS'; -my $IsMacOS = $^O eq 'MacOS'; my $vms_unix_rpt = 0; my $vms_efs = 0; @@ -74,8 +73,6 @@ my $pwd = $^O eq 'MSWin32' ? "cmd" : "pwd"; my $pwd_cmd = ($^O eq "NetWare") ? "cd" : - ($IsMacOS) ? - "pwd" : (grep { -x && -f } map { "$_/$pwd$Config{exe_ext}" } split m/$Config{path_sep}/, $ENV{PATH})[0]; @@ -171,7 +168,6 @@ rmtree($test_dirs[0], 0, 0); { my $check = ($vms_mode ? qr|\b((?i)t)\]$| : - $IsMacOS ? qr|\bt:$| : qr|\bt$| ); like($ENV{PWD}, $check); |