Change 14078 by jhi@alpha on 2002/01/04 21:07:05
Display the native pwd command.
Affected files ...
.... //depot/perl/ext/Cwd/t/cwd.t#5 edit
Differences ...
==== //depot/perl/ext/Cwd/t/cwd.t#5 (text) ====
Index: perl/ext/Cwd/t/cwd.t
--- perl/ext/Cwd/t/cwd.t.~1~ Fri Jan 4 14:15:06 2002
+++ perl/ext/Cwd/t/cwd.t Fri Jan 4 14:15:06 2002
@@ -29,11 +29,15 @@
# 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;
End of Patch.
