This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert part of b844a53a to fix ./perl -Ilib t/io/fs.t
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 28 Jul 2014 23:30:13 +0000 (19:30 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 29 Jul 2014 00:51:39 +0000 (20:51 -0400)
The temps are created in t, but $ENV{PWD} points to root.

The change was made for Android support, but is now obsoleted
by newer code for Android, just below.

t/io/fs.t

index 5e82b45..0d3f435 100644 (file)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -16,9 +16,6 @@ if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) {
 elsif ($^O eq 'VMS') {
     $wd = `show default`;
 }
-elsif ($ENV{PWD}) {
-    $wd = $ENV{PWD};
-}
 elsif ( $^O =~ /android/ || $^O eq 'nto' ) {
     # On Android and Blackberry 10, pwd is a shell builtin, so plain `pwd`
     # won't cut it