Change 20645 by [EMAIL PROTECTED] on 2003/08/12 10:40:54
Localize PARENT (based on Ilya's microperl patch).
Affected files ...
... //depot/perl/lib/Cwd.pm#67 edit
Differences ...
==== //depot/perl/lib/Cwd.pm#67 (text) ====
Index: perl/lib/Cwd.pm
--- perl/lib/Cwd.pm#66~17827~ Wed Sep 4 04:21:57 2002
+++ perl/lib/Cwd.pm Tue Aug 12 03:40:54 2003
@@ -379,6 +379,7 @@
{
$dotdots .= '/..';
@pst = @cst;
+ local *PARENT;
unless (opendir(PARENT, $dotdots))
{
carp "opendir($dotdots): $!";
End of Patch.
