diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2002-05-18 22:15:43 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-18 19:33:51 +0000 |
| commit | 0d658bf5a06395c253c09769a32f6face7d329cb (patch) | |
| tree | 17b678aeeee637358373d8df3d9e3312c6e131f0 /lib/warnings.pm | |
| parent | 9ce33444c52b575e08c30fd97f028293d35f3cb9 (diff) | |
| download | perl-0d658bf5a06395c253c09769a32f6face7d329cb.tar.gz | |
RE: perl@16678
From: "Paul Marquess" <Paul.Marquess@ntlworld.com>
Message-ID: <AIEAJICLCBDNAAOLLOKLCEAPELAA.Paul.Marquess@ntlworld.com>
Making the symbols generated by warnings.pl future-proof.
p4raw-id: //depot/perl@16682
Diffstat (limited to 'lib/warnings.pm')
| -rw-r--r-- | lib/warnings.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/warnings.pm b/lib/warnings.pm index 7f7e175a51..78ac4a9739 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -129,6 +129,9 @@ See L<perlmodlib/Pragmatic Modules> and L<perllexwarn>. use Carp ; %Offsets = ( + + # Warnings Categories added in Perl 5.008 + 'all' => 0, 'closure' => 2, 'deprecated' => 4, @@ -419,4 +422,5 @@ sub warnif carp($message) ; } + 1; |