From db28185901bfe308f53f975f7d61e927a5f806b5 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 6 Jun 2002 20:57:11 +0000
Subject: [PATCH] Retract #16892 now that we have #17022.

p4raw-id: //depot/perl@17050
---
 lib/Cwd.pm | 6 +-----
 1 file changed, 1 insertion(+), 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";
-- 
2.34.1