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 (file)
--- 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): $!";