diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-04 21:07:05 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-04 21:07:05 +0000 |
| commit | 023b4a438f77da7c7cd59a929c7e412fc387a93f (patch) | |
| tree | 74fb78f0ae73835969956e31e21dbb773abbb08d /ext/Cwd | |
| parent | db8ab41e9b86ed452fc0ed716a2fc9d034b1ed8a (diff) | |
| download | perl-023b4a438f77da7c7cd59a929c7e412fc387a93f.tar.gz | |
Display the native pwd command.
p4raw-id: //depot/perl@14078
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; |