Lines Matching defs:Carp
902 package Carp;
8605 if ( defined &Carp::longmess ) {
8612 local $Carp::CarpLevel = 2; # mydie + confess
8615 _db_warn( Carp::longmess("Signal @_") );
8618 # No Carp. Tell us about the signal as best we can.
8630 The debugger's own default C<$SIG{__WARN__}> handler. We load C<Carp> to
8648 # Load Carp if we can. If $^S is false (current thing being compiled isn't
8650 eval { require Carp }
8654 # Use the core warn() unless Carp loaded OK.
8658 unless defined &Carp::longmess;
8665 # We can call Carp::longmess without its being "debugged" (which we
8667 my $mess = Carp::longmess(@_);
8680 by loading C<Carp> and calling C<Carp::longmess()> to get it. We turn off
8681 single stepping and tracing during the call to C<Carp::longmess> to avoid
8707 eval { require Carp };
8711 unless defined &Carp::longmess;
8714 # inside DB::DB, but not in Carp). Save $single and $trace, turn them off,
8715 # get the stack trace from Carp::longmess (if possible), restore $signal
8723 package Carp; # Do not include us in the list
8724 eval { $mess = Carp::longmess(@_); };
9079 #use Carp; # This did break, left for debugging