A SuSE patchlet for perlcc -c to avoid

"Modification of a read-only value attempted at ... C.pm"

p4raw-id: //depot/perl@21028

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 08ba0cb..97f36ab 100644 (file)
--- a/ext/B/B/C.pm
+++ b/ext/B/B/C.pm
@@ -1859,10 +1859,10 @@ sub walkpackages
  my $sym;
  my $ref;
  no strict 'vars';
- local(*glob);
  $prefix = '' unless defined $prefix;
  while (($sym, $ref) = each %$symref) 
   {             
+   local(*glob);
    *glob = $ref;
    if ($sym =~ /::$/) 
     {