diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-14 09:41:42 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-07-14 09:41:42 +0200 |
| commit | 4dd71923a4816d49eef5a43f9290f38ccae2a776 (patch) | |
| tree | c0aac5e29f13dffad4725639b8fcf8df9eb6b188 /warnings.pl | |
| parent | ba7a45496628db970f8607e67b4345e8bc45f6fe (diff) | |
| download | perl-4dd71923a4816d49eef5a43f9290f38ccae2a776.tar.gz | |
Don't preload Carp::Heavy in warnings.pm
Use only Carp, now that all the machinery is in it.
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/warnings.pl b/warnings.pl index c5cdaa83ff..4d010de9da 100644 --- a/warnings.pl +++ b/warnings.pl @@ -587,7 +587,7 @@ $All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ; sub Croaker { - require Carp::Heavy; # this initializes %CarpInternal + require Carp; # this initializes %CarpInternal local $Carp::CarpInternal{'warnings'}; delete $Carp::CarpInternal{'warnings'}; Carp::croak(@_); @@ -738,7 +738,7 @@ sub __chk } sub _error_loc { - require Carp::Heavy; + require Carp; goto &Carp::short_error_loc; # don't introduce another stack frame } |