Change 14343 by jhi@alpha on 2002/01/19 16:09:52
Subject: [PATCH] ext/Cwd/t/cwd.t -- for VOS
From: [EMAIL PROTECTED]
Date: Fri, 18 Jan 02 22:56 est
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/ext/Cwd/t/cwd.t#6 edit
Differences ...
==== //depot/perl/ext/Cwd/t/cwd.t#6 (text) ====
Index: perl/ext/Cwd/t/cwd.t
--- perl/ext/Cwd/t/cwd.t.~1~ Sat Jan 19 09:15:05 2002
+++ perl/ext/Cwd/t/cwd.t Sat Jan 19 09:15:05 2002
@@ -31,7 +31,7 @@
my $pwd_cmd =
($^O eq "MSWin32" || $^O eq "NetWare") ?
"cd" :
- (grep { -x && -f } map { "$_/pwd" }
+ (grep { -x && -f } map { "$_/pwd$Config{exe_ext}" }
split m/$Config{path_sep}/, $ENV{PATH})[0];
$pwd_cmd = 'SHOW DEFAULT' if $IsVMS;
End of Patch.
