view release on metacpan or  search on metacpan

t/ExtUtils/SVDmaker/expected/File/Package.pm  view on Meta::CPAN

87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
# The eval messes with the stack. Since not using an eval, need
# to double check to make sure import does not die.
 
####
# Poor man's eval where trap off the Carp::croak function.
# The Perl authorities have Core::die locked down tight so
# it is next to impossible to trap off of Core::die. Lucky 
# must everyone uses Carp::croak instead of just dieing.
#
# Anyway, get the benefit of a lot of stack gyrations to
# formulate the correct error msg by Exporter::import.
# 
$error = '';
no warnings;
*Carp::carp = sub {
    $error .= (join '', @_);
    $error .= "\n" unless substr($error,-1,1) eq "\n";
};
*Carp::croak = sub {
    $error .= Carp::longmess (join '', @_) if $error;
    $error .= "\n" unless substr($error,-1,1) eq "\n";