summaryrefslogtreecommitdiff
path: root/ext/Cwd
diff options
context:
space:
mode:
Diffstat (limited to 'ext/Cwd')
-rw-r--r--ext/Cwd/t/cwd.t4
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`);