From: Stas Bekman <stas@stason.org>
Date: Mon, 15 Apr 2002 11:45:03 +0000 (+0800)
Subject: solve one taint problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1aa6dd61aa6395f566dba3dd09a3a1a4396547e3;p=p5sagit%2Fp5-mst-13.2.git

solve one taint problem
   Message-Id: <3CBA4CBF.9030306@stason.org>

p4raw-id: //depot/perl@15918
---

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 5b5f216..6f3cb7c 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";