diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-06 20:57:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-06 20:57:11 +0000 |
| commit | db28185901bfe308f53f975f7d61e927a5f806b5 (patch) | |
| tree | a0e733d2a2d3f63a60c33f9e6b2cc8b279d6ab8f /lib/Cwd.pm | |
| parent | 36f070cb2775b887fc552fd902206d8e70dcef9b (diff) | |
| download | perl-db28185901bfe308f53f975f7d61e927a5f806b5.tar.gz | |
Retract #16892 now that we have #17022.
p4raw-id: //depot/perl@17050
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 24ad1e2969..8b00543e1e 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -196,11 +196,7 @@ $pwd_cmd ||= 'pwd'; # The 'natural and safe form' for UNIX (pwd may be setuid root) sub _backtick_pwd { - local $ENV{PATH}; - local $ENV{IFS}; - local $ENV{CDPATH}; - local $ENV{ENV}; - local $ENV{BASH_ENV}; + local @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; my $cwd = `$pwd_cmd`; # Belt-and-suspenders in case someone said "undef $/". local $/ = "\n"; |