From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 22 Jan 2011 20:15:05 +0000 (+0000)
Subject: Remove Mac OS classic special case code from Cwd's cwd.t
X-Git-Tag: v5.13.10~474
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/1f61f1191cda645b5e0f09904e55e8adb74c596c

Remove Mac OS classic special case code from Cwd's cwd.t
---

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);