From b844a53a7d234f06bcf81ebea25299efc781c526 Mon Sep 17 00:00:00 2001 From: Jess Robinson Date: Fri, 19 Apr 2013 12:02:19 +0100 Subject: [PATCH] Adjust fs test to try more ways of getting the CWD. Expire if we still didn't get it. --- t/io/fs.t | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/t/io/fs.t b/t/io/fs.t index aaa6a7b..bec4dc9 100644 --- a/t/io/fs.t +++ b/t/io/fs.t @@ -16,11 +16,16 @@ if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { elsif ($^O eq 'VMS') { $wd = `show default`; } +elsif ($ENV{PWD}) { + $wd = $ENV{PWD}; +} else { $wd = `pwd`; } chomp($wd); +die "Can't get current working directory" if(!$wd); + my $has_link = $Config{d_link}; my $accurate_timestamps = !($^O eq 'MSWin32' || $^O eq 'NetWare' || @@ -307,7 +312,7 @@ is(unlink('b'), 1, "unlink b"); is($ino, undef, "ino of unlinked file b should be undef"); unlink 'c'; -chdir $wd || die "Can't cd back to $wd"; +chdir $wd || die "Can't cd back to '$wd' ($!)"; # Yet another way to look for links (perhaps those that cannot be # created by perl?). Hopefully there is an ls utility in your -- 2.7.4