Change 16165 by gsar@onru on 2002/04/25 18:19:32
cwd.t wasn't running all the tests because cmd.exe wasn't
being found properly
Affected files ...
.... //depot/perl/ext/Cwd/t/cwd.t#10 edit
Differences ...
==== //depot/perl/ext/Cwd/t/cwd.t#10 (text) ====
Index: perl/ext/Cwd/t/cwd.t
--- perl/ext/Cwd/t/cwd.t.~1~ Thu Apr 25 12:30:05 2002
+++ perl/ext/Cwd/t/cwd.t Thu Apr 25 12:30:05 2002
@@ -28,14 +28,18 @@
# 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: {
End of Patch.
