Adjust fs test to try more ways of getting the CWD. Expire if we still didn't get it.

1 files changed, 6 insertions, 1 deletions

diff --git a/t/io/fs.t b/t/io/fs.t
index aaa6a7bc03..bec4dc9560 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