projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
03871ea
)
U/WIN test nit for John P. Linderman.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 21 May 2003 13:03:34 +0000
(13:03 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Wed, 21 May 2003 13:03:34 +0000
(13:03 +0000)
p4raw-id: //depot/perl@19579
ext/Cwd/t/cwd.t
patch
|
blob
|
history
diff --git
a/ext/Cwd/t/cwd.t
b/ext/Cwd/t/cwd.t
index
834a399
..
514f2b1
100644
(file)
--- 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`);