Change 21028 by [EMAIL PROTECTED] on 2003/09/04 15:10:48
A SuSE patchlet.
Affected files ...
... //depot/perl/ext/B/B/C.pm#71 edit
Differences ...
==== //depot/perl/ext/B/B/C.pm#71 (text) ====
Index: perl/ext/B/B/C.pm
--- perl/ext/B/B/C.pm#70~20695~ Wed Aug 13 23:44:10 2003
+++ perl/ext/B/B/C.pm Thu Sep 4 08:10:48 2003
@@ -1859,10 +1859,10 @@
my $sym;
my $ref;
no strict 'vars';
- local(*glob);
$prefix = '' unless defined $prefix;
while (($sym, $ref) = each %$symref)
{
+ local(*glob);
*glob = $ref;
if ($sym =~ /::$/)
{
End of Patch.
