diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-01-18 17:56:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-19 16:09:52 +0000 |
| commit | 2951361e9d8088090b6343434f93a11611bfa748 (patch) | |
| tree | 34b074f4318fed23cea309d13022eb1fbdcefc1a /ext/Cwd | |
| parent | 78063c05f32737ee5b3dc509a8d9ca86675c162e (diff) | |
| download | perl-2951361e9d8088090b6343434f93a11611bfa748.tar.gz | |
ext/Cwd/t/cwd.t -- for VOS
Message-Id: <200201190400.XAA16899@mailhub1.stratus.com>
p4raw-id: //depot/perl@14343
Diffstat (limited to 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/t/cwd.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t index 88a1b9477e..8fc61b85fa 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; |