diff options
| author | Jim Cromie <jcromie@cpan.org> | 2005-01-02 23:36:16 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-07 14:30:51 +0000 |
| commit | 09e96b99c215ed417c37d0d188dd576c5464c72a (patch) | |
| tree | f0311897e0c6eb6d473caa496bbc83165704599f /warnings.pl | |
| parent | 5df617be18e4372550725f3369e8e3fd641cce19 (diff) | |
| download | perl-09e96b99c215ed417c37d0d188dd576c5464c72a.tar.gz | |
Re: [PATCH] Remove Carp from warnings.pm
Message-ID: <cfe85dfa05010305367445dee6@mail.gmail.com>
p4raw-id: //depot/perl@23768
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/warnings.pl b/warnings.pl index aae186efad..43f0aa6e12 100644 --- a/warnings.pl +++ b/warnings.pl @@ -477,7 +477,7 @@ __END__ package warnings; -our $VERSION = '1.03'; +our $VERSION = '1.04'; =head1 NAME @@ -602,14 +602,13 @@ See L<perlmodlib/Pragmatic Modules> and L<perllexwarn>. =cut -use Carp (); - KEYWORDS $All = "" ; vec($All, $Offsets{'all'}, 2) = 3 ; sub Croaker { + require Carp; delete $Carp::CarpInternal{'warnings'}; Carp::croak(@_); } @@ -783,6 +782,7 @@ sub warn my $message = pop ; my ($callers_bitmask, $offset, $i) = __chk(@_) ; + require Carp; Carp::croak($message) if vec($callers_bitmask, $offset+1, 1) || vec($callers_bitmask, $Offsets{'all'}+1, 1) ; @@ -802,6 +802,7 @@ sub warnif (vec($callers_bitmask, $offset, 1) || vec($callers_bitmask, $Offsets{'all'}, 1)) ; + require Carp; Carp::croak($message) if vec($callers_bitmask, $offset+1, 1) || vec($callers_bitmask, $Offsets{'all'}+1, 1) ; |