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 /lib/warnings.pm | |
| 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 'lib/warnings.pm')
| -rw-r--r-- | lib/warnings.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/warnings.pm b/lib/warnings.pm index 9e9b3b55ca..656b7ac491 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -133,7 +133,7 @@ See L<perlmodlib/Pragmatic Modules> and L<perllexwarn>. use Carp (); -our %Offsets : unique = ( +our %Offsets = ( # Warnings Categories added in Perl 5.008 @@ -190,7 +190,7 @@ our %Offsets : unique = ( 'assertions' => 94, ); -our %Bits : unique = ( +our %Bits = ( 'all' => "\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55\x55", # [0..47] 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00\x00", # [29] 'assertions' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40", # [47] @@ -241,7 +241,7 @@ our %Bits : unique = ( 'y2k' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10", # [46] ); -our %DeadBits : unique = ( +our %DeadBits = ( 'all' => "\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa\xaa", # [0..47] 'ambiguous' => "\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00\x00", # [29] 'assertions' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80", # [47] |