From: Norton T. Allen <allen@huarp.harvard.edu>
Date: Wed, 2 Jan 2002 14:19:42 +0000 (-0500)
Subject: PATCH: lib/Cwd.pm for QNX4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=35b807ef3d5d20fcb1e7afd29ca7ede8931d5a85;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;