diff options
Diffstat (limited to 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/t/cwd.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t index b636c6db90..88a1b9477e 100644 --- a/ext/Cwd/t/cwd.t +++ b/ext/Cwd/t/cwd.t @@ -29,11 +29,15 @@ eval { fastcwd }; # Must find an external pwd (or equivalent) command. my $pwd_cmd = - ($^O eq "MSWin32" || $^O eq "NetWare") ? "cd" : (grep { -x && -f } map { "$_/pwd" } - split m/$Config{path_sep}/, $ENV{PATH})[0]; + ($^O eq "MSWin32" || $^O eq "NetWare") ? + "cd" : + (grep { -x && -f } map { "$_/pwd" } + split m/$Config{path_sep}/, $ENV{PATH})[0]; $pwd_cmd = 'SHOW DEFAULT' if $IsVMS; +print "# native pwd = '$pwd_cmd'\n"; + SKIP: { skip "No native pwd command found to test against", 4 unless $pwd_cmd; |