This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
A SuSE patchlet for perlcc -c to avoid
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 4 Sep 2003 15:10:48 +0000 (15:10 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Thu, 4 Sep 2003 15:10:48 +0000 (15:10 +0000)
"Modification of a read-only value attempted at ... C.pm"

p4raw-id: //depot/perl@21028

ext/B/B/C.pm

index 08ba0cb..97f36ab 100644 (file)
@@ -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 =~ /::$/) 
     {