diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-04 15:10:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-04 15:10:48 +0000 |
| commit | 8e9a9eaeaf316dac892322510e042d3aabad4750 (patch) | |
| tree | fb6bc94d644c0a98963124653213da5dd769e116 /ext | |
| parent | c8538dcfbefa4c84bc2e5a892bac85157aa6d440 (diff) | |
| download | perl-8e9a9eaeaf316dac892322510e042d3aabad4750.tar.gz | |
A SuSE patchlet for perlcc -c to avoid
"Modification of a read-only value attempted at ... C.pm"
p4raw-id: //depot/perl@21028
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/C.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 =~ /::$/) { |