PATCH: lib/Cwd.pm for QNX4

   Message-Id: <200201021919.OAA18012@bottesini.harvard.edu>

p4raw-id: //depot/perl@14023

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index d86527f..63a14fd 100644 (file)
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -466,12 +466,18 @@ sub _dos_cwd {
 }
 
 sub _qnx_cwd {
+       local $ENV{PATH} = '';
+       local $ENV{CDPATH} = '';
+       local $ENV{ENV} = '';
     $ENV{'PWD'} = `/usr/bin/fullpath -t`;
     chop $ENV{'PWD'};
     return $ENV{'PWD'};
 }
 
 sub _qnx_abs_path {
+       local $ENV{PATH} = '';
+       local $ENV{CDPATH} = '';
+       local $ENV{ENV} = '';
     my $path = @_ ? shift : '.';
     my $realpath=`/usr/bin/fullpath -t $path`;
     chop $realpath;