diff options
| -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 7f8ef6543b..42ce8d181a 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): $!"; |