exit(-1);
}
sub carp {
- DXDebug::dbgprintring(25) if DXDebug('nologchan');
+ DXDebug::dbgprintring(5) if DXDebug::isdbg('nologchan');
# DXDebug::dbg(Carp::shortmess(\@_));
DXDebug::longmess(\@_);
}
sub cluck {
- DXDebug::dbgprintring(25) if DXDebug('nologchan');
+ DXDebug::dbgprintring(5) if DXDebug::isdbg('nologchan');
# DXDebug::dbg(Carp::longmess(\@_));
DXDebug::longmess(\@_);
} );
last if $pkg =~ /Mojo/;
# say "*** in dbgtrace $i after mojo";
$_isdbg = 'trace';
- dbg("Stack ($i): $pkg::$subr in $fn line: $l");
+ dbg("Stack ($i): ${pkg}::$subr in $fn line: $l");
}
$_isdbg = '';
}