From 023b4a438f77da7c7cd59a929c7e412fc387a93f Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 4 Jan 2002 21:07:05 +0000
Subject: [PATCH] Display the native pwd command.

p4raw-id: //depot/perl@14078
---
 ext/Cwd/t/cwd.t | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ext/Cwd/t/cwd.t b/ext/Cwd/t/cwd.t
index b636c6d..88a1b94 100644
--- a/ext/Cwd/t/cwd.t
+++ b/ext/Cwd/t/cwd.t
@@ -29,11 +29,15 @@ eval { fastcwd };
 # Must find an external pwd (or equivalent) command.
 
 my $pwd_cmd =
-    ($^O eq "MSWin32" || $^O eq "NetWare") ? "cd" : (grep { -x && -f } map { "$_/pwd" }
-			       split m/$Config{path_sep}/, $ENV{PATH})[0];
+    ($^O eq "MSWin32" || $^O eq "NetWare") ?
+        "cd" :
+        (grep { -x && -f } map { "$_/pwd" }
+	                   split m/$Config{path_sep}/, $ENV{PATH})[0];
 
 $pwd_cmd = 'SHOW DEFAULT' if $IsVMS;
 
+print "# native pwd = '$pwd_cmd'\n";
+
 SKIP: {
     skip "No native pwd command found to test against", 4 unless $pwd_cmd;
 
-- 
1.8.3.1