Change 14023: PATCH: lib/Cwd.pm for QNX4

[Abhijit Menon-Sen]

Change 14023 by ams@lustre on 2002/01/02 18:12:31

           Subject: PATCH: lib/Cwd.pm for QNX4
           From: Norton Allen <[EMAIL PROTECTED]>
           Date: Wed, 2 Jan 2002 14:19:42 -0500 (est)
           Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/lib/Cwd.pm#57 edit

Differences ...

==== //depot/perl/lib/Cwd.pm#57 (text) ====
Index: perl/lib/Cwd.pm
--- perl/lib/Cwd.pm.~1~ Wed Jan  2 11:15:05 2002
+++ perl/lib/Cwd.pm     Wed Jan  2 11:15:05 2002
@@ -466,12 +466,18 @@
 }
 
 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;
End of Patch.