From 1f61f1191cda645b5e0f09904e55e8adb74c596c Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 22 Jan 2011 20:15:05 +0000 Subject: [PATCH] Remove Mac OS classic special case code from Cwd's cwd.t --- dist/Cwd/t/cwd.t | 4 ---- 1 file changed, 4 deletions(-) diff --git a/dist/Cwd/t/cwd.t b/dist/Cwd/t/cwd.t index a97a4cb..c9a2187 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); -- 2.7.4