diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-25 18:19:32 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2002-04-25 18:19:32 +0000 |
| commit | 38f5208578bbcb05898effe3959401ff7d2a5630 (patch) | |
| tree | 63dcb3cd301be07e1b18d8ff71a1d9db9552d6fa /ext | |
| parent | 21bc9d502a21a2b50d9e41d24690fb922006312b (diff) | |
| download | perl-38f5208578bbcb05898effe3959401ff7d2a5630.tar.gz | |
cwd.t wasn't running all the tests because cmd.exe wasn't
being found properly
p4raw-id: //depot/perl@16165
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Cwd/t/cwd.t | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t index bcbcd17b3d..92079c0b10 100644 --- a/ext/Cwd/t/cwd.t +++ b/ext/Cwd/t/cwd.t @@ -28,14 +28,18 @@ eval { fastcwd }; # Must find an external pwd (or equivalent) command. +my $pwd = $^O eq 'MSWin32' ? "cmd" : "pwd"; my $pwd_cmd = - ($^O eq "MSWin32" || $^O eq "NetWare") ? + ($^O eq "NetWare") ? "cd" : - (grep { -x && -f } map { "$_/pwd$Config{exe_ext}" } + (grep { -x && -f } map { "$_/$pwd$Config{exe_ext}" } split m/$Config{path_sep}/, $ENV{PATH})[0]; $pwd_cmd = 'SHOW DEFAULT' if $IsVMS; - +if ($^O eq 'MSWin32') { + $pwd_cmd =~ s,/,\\,g; + $pwd_cmd = "$pwd_cmd /c cd"; +} print "# native pwd = '$pwd_cmd'\n"; SKIP: { |