From 8e9a9eaeaf316dac892322510e042d3aabad4750 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 4 Sep 2003 15:10:48 +0000
Subject: A SuSE patchlet for perlcc -c to avoid "Modification of a read-only
 value attempted at ... C.pm"

p4raw-id: //depot/perl@21028
---
 ext/B/B/C.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext')

diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm
index 08ba0cb025..97f36ab880 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 =~ /::$/) 
     {
-- 
cgit v1.2.1