projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
cba0911
)
Remove Mac OS classic special case code from Cwd's cwd.t
author
Nicholas Clark
<nick@ccl4.org>
Sat, 22 Jan 2011 20:15:05 +0000
(20:15 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Sat, 22 Jan 2011 20:15:05 +0000
(20:15 +0000)
dist/Cwd/t/cwd.t
patch
|
blob
|
history
diff --git
a/dist/Cwd/t/cwd.t
b/dist/Cwd/t/cwd.t
index
a97a4cb
..
c9a2187
100644
(file)
--- 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);