From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 4 Sep 2003 15:10:48 +0000 (+0000)
Subject: A SuSE patchlet for perlcc -c to avoid
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e9a9eaeaf316dac892322510e042d3aabad4750;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 =~ /::$/) 
     {