diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-21 13:03:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-21 13:03:34 +0000 |
| commit | d80cbc32ff112b0deaa35bb67ee77e4f43449631 (patch) | |
| tree | 6cb9bc59d0685c28b76389a3032cf0e65cf25280 /ext/Cwd | |
| parent | 03871ea64ce22022ff5d907fffa52338dafdb782 (diff) | |
| download | perl-d80cbc32ff112b0deaa35bb67ee77e4f43449631.tar.gz | |
U/WIN test nit for John P. Linderman.
p4raw-id: //depot/perl@19579
Diffstat (limited to 'ext/Cwd')
| -rw-r--r-- | ext/Cwd/t/cwd.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t index 834a399b37..514f2b1ac7 100644 --- a/ext/Cwd/t/cwd.t +++ b/ext/Cwd/t/cwd.t @@ -46,11 +46,11 @@ if ($^O eq 'MSWin32') { } $pwd_cmd =~ s=\\=/=g if ($^O eq 'dos'); -print "# native pwd = '$pwd_cmd'\n"; - SKIP: { skip "No native pwd command found to test against", 4 unless $pwd_cmd; + print "# native pwd = '$pwd_cmd'\n"; + local @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; my ($pwd_cmd_untainted) = $pwd_cmd =~ /^(.+)$/; # Untaint. chomp(my $start = `$pwd_cmd_untainted`); |