package Carp;
-our $VERSION = '1.06';
+our $VERSION = '1.09';
# this file is an utra-lightweight stub. The first time a function is
# called, Carp::Heavy is loaded, and the real short/longmessmess_jmp
# subs are installed
local($@, $!);
eval { require Carp::Heavy };
return $@ if $@;
- goto &longmess_jmp;
+ goto &longmess_real;
}
sub shortmess_jmp {
local($@, $!);
eval { require Carp::Heavy };
return $@ if $@;
- goto &shortmess_jmp;
+ goto &shortmess_real;
}
sub croak { die shortmess @_ }
perl -MCarp=verbose script.pl
-or by including the string C<MCarp=verbose> in the PERL5OPT
+or by including the string C<-MCarp=verbose> in the PERL5OPT
environment variable.
Alternately, you can set the global variable C<$Carp::Verbose> to true.