use Carp;
$Carp::Internal{__PACKAGE__.""}++;
-our $VERSION = 1.14;
+our $VERSION = 1.16;
our $DEBUG;
our $VERBOSE;
our $PRETTY;
$PRETTY++;
next;
};
-
- /^-t(race)?$/ && do {
+ # matches trace and traceonly for legacy doc mixup reasons
+ /^-t(race(only)?)?$/ && do {
$TRACEONLY++;
next;
};
- /^-w(arntrace)?$/ && do {
+ /^-w(arntrace)?$/ && do {
$WARNTRACE++;
next;
};
# but be aware of messsages containing " at this-or-that"
my $real = 0;
my @secs = split( / at / );
+ return unless @secs;
$_ = $secs[0];
for my $i ( 1..$#secs ){
if( $secs[$i] =~ /.+? (?:line|chunk) \d+/ ){