From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 12 Aug 2003 10:40:54 +0000 (+0000)
Subject: Localize PARENT (based on Ilya's microperl patch).
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a25ef67de93be431e21193a0e7ed5fca8bc883f7;p=p5sagit%2Fp5-mst-13.2.git

Localize PARENT (based on Ilya's microperl patch).

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

diff --git a/lib/Cwd.pm b/lib/Cwd.pm
index 7f8ef65..42ce8d1 100644
--- a/lib/Cwd.pm
+++ b/lib/Cwd.pm
@@ -379,6 +379,7 @@ sub _perl_abs_path
     {
 	$dotdots .= '/..';
 	@pst = @cst;
+	local *PARENT;
 	unless (opendir(PARENT, $dotdots))
 	{
 	    carp "opendir($dotdots): $!";