From: Paul Green <Paul.Green@stratus.com>
Date: Fri, 18 Jan 2002 22:56:00 +0000 (-0500)
Subject: ext/Cwd/t/cwd.t -- for VOS
X-Git-Tag: accepted/trunk/20130322.191538~28311
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2951361e9d8088090b6343434f93a11611bfa748;p=platform%2Fupstream%2Fperl.git

ext/Cwd/t/cwd.t -- for VOS
Message-Id: <200201190400.XAA16899@mailhub1.stratus.com>

p4raw-id: //depot/perl@14343
---

diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t
index 88a1b94..8fc61b8 100644
--- a/ext/Cwd/t/cwd.t
+++ b/ext/Cwd/t/cwd.t
@@ -31,7 +31,7 @@ eval { fastcwd };
 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;