diff options
| author | Bram <perl-rt@wizbit.be> | 2005-08-05 01:55:33 +0200 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-10-30 04:20:45 +0000 |
| commit | dbab294c68e8160ef916906a4beca1da8c0c2ec5 (patch) | |
| tree | e59558a39750411253bc36b7c56baa08d529a801 /warnings.pl | |
| parent | 60a57c1cb96720ff157e8911ca10ada9c0a3c97e (diff) | |
| download | perl-dbab294c68e8160ef916906a4beca1da8c0c2ec5.tar.gz | |
warnings.pl/pm: Croaker function: bug (perl v5.8, v5.9)
Message-Id: <42F28ED5.CFFDCCFD@wizbit.be>
p4raw-id: //depot/perl@25888
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/warnings.pl b/warnings.pl index bc6b42a37a..94cc34fbf6 100644 --- a/warnings.pl +++ b/warnings.pl @@ -564,6 +564,7 @@ $All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ; sub Croaker { require Carp::Heavy; # this initializes %CarpInternal + local $Carp::CarpInternal{'warnings'}; delete $Carp::CarpInternal{'warnings'}; Carp::croak(@_); } |