diff options
| author | Norton T. Allen <allen@huarp.harvard.edu> | 2002-01-02 09:19:42 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-01-02 18:12:31 +0000 |
| commit | 35b807ef3d5d20fcb1e7afd29ca7ede8931d5a85 (patch) | |
| tree | 3222c52f5eef44ed85316758416214587db43f48 /lib/Cwd.pm | |
| parent | 364daeac4868b98a1fa3ae76f6024a86f1be49bd (diff) | |
| download | perl-35b807ef3d5d20fcb1e7afd29ca7ede8931d5a85.tar.gz | |
PATCH: lib/Cwd.pm for QNX4
Message-Id: <200201021919.OAA18012@bottesini.harvard.edu>
p4raw-id: //depot/perl@14023
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index d86527f9e0..63a14fdcbc 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; |