diff options
| author | Stas Bekman <stas@stason.org> | 2002-04-15 19:45:03 +0800 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-04-15 04:25:48 +0000 |
| commit | 1aa6dd61aa6395f566dba3dd09a3a1a4396547e3 (patch) | |
| tree | 7d1ea796077a3433e6d64208a52e54396bb7d780 /lib/Cwd.pm | |
| parent | d8c5566640fb9132fbfa47d3c76f472959a1dc29 (diff) | |
| download | perl-1aa6dd61aa6395f566dba3dd09a3a1a4396547e3.tar.gz | |
solve one taint problem
Message-Id: <3CBA4CBF.9030306@stason.org>
p4raw-id: //depot/perl@15918
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 5b5f21672b..6f3cb7c935 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -187,6 +187,7 @@ $pwd_cmd ||= 'pwd'; # The 'natural and safe form' for UNIX (pwd may be setuid root) sub _backtick_pwd { + local @ENV{qw(PATH IFS CDPATH ENV BASH_ENV)}; my $cwd = `$pwd_cmd`; # Belt-and-suspenders in case someone said "undef $/". local $/ = "\n"; |