diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 10:40:54 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-12 10:40:54 +0000 |
| commit | a25ef67de93be431e21193a0e7ed5fca8bc883f7 (patch) | |
| tree | 36bc89d30dd84d664f89be957b4b45885ef38863 /lib/Cwd.pm | |
| parent | c43f8b937804a25598432d2d19d7f04146b29bc2 (diff) | |
| download | perl-a25ef67de93be431e21193a0e7ed5fca8bc883f7.tar.gz | |
Localize PARENT (based on Ilya's microperl patch).
p4raw-id: //depot/perl@20645
Diffstat (limited to 'lib/Cwd.pm')
| -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): $!"; |