From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 21 May 2003 13:03:34 +0000 (+0000)
Subject: U/WIN test nit for John P. Linderman.
X-Git-Tag: accepted/trunk/20130322.191538~24151
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d80cbc32ff112b0deaa35bb67ee77e4f43449631;p=platform%2Fupstream%2Fperl.git

U/WIN test nit for John P. Linderman.

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

diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t
index 834a399..514f2b1 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`);