diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-01-01 19:58:08 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-01-01 19:58:08 +0000 |
| commit | 53c33732a73c90e26f613c11afdc5110e6a919ff (patch) | |
| tree | 0bfba23460f9a96ec7f56d3b170c62a2f386d2dd /warnings.pl | |
| parent | cc8040a133daf622c9005eb6ffea6375088dc5e7 (diff) | |
| download | perl-53c33732a73c90e26f613c11afdc5110e6a919ff.tar.gz | |
Fix bug #24383, where hashes with the :unique attribute weren't
getting made readonly on interpreter clone. Also, remove the
:unique attribute from the hashes in warnings.pm, since they may
later be modified by warnings::register. Finally, adds tests for
the :unique attribute.
p4raw-id: //depot/perl@22034
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/warnings.pl b/warnings.pl index 7feccb5751..df766fea3d 100644 --- a/warnings.pl +++ b/warnings.pl @@ -414,7 +414,7 @@ while (<DATA>) { #$list{'all'} = [ $offset .. 8 * ($warn_size/2) - 1 ] ; $last_ver = 0; -print PM "our %Offsets : unique = (\n" ; +print PM "our %Offsets = (\n" ; foreach my $k (sort { $a <=> $b } keys %ValueToName) { my ($name, $version) = @{ $ValueToName{$k} }; $name = lc $name; @@ -430,7 +430,7 @@ foreach my $k (sort { $a <=> $b } keys %ValueToName) { print PM " );\n\n" ; -print PM "our %Bits : unique = (\n" ; +print PM "our %Bits = (\n" ; foreach $k (sort keys %list) { my $v = $list{$k} ; @@ -444,7 +444,7 @@ foreach $k (sort keys %list) { print PM " );\n\n" ; -print PM "our %DeadBits : unique = (\n" ; +print PM "our %DeadBits = (\n" ; foreach $k (sort keys %list) { my $v = $list{$k} ; |