Fix DXDebug::DXDebug issue

This commit is contained in:
Dirk Koopman 2023-03-03 13:04:50 +00:00
parent d572c34d7d
commit 5b8c14dd8a
2 changed files with 6 additions and 2 deletions

View File

@ -1,3 +1,7 @@
03Mar23=======================================================================
1. Fix DXDebug::DXDebug not found errors in rarely used functions. This is
also an interaction with differing versions of Mojolicious. Clearly this
has never happened to me (sigh).
02Mar23=======================================================================
1. Fix sh/dx/30 problem. I.e. allow old style version of sh/dx 30.
01Mar23=======================================================================

View File

@ -69,12 +69,12 @@ if (!defined $DB::VERSION) {
exit(-1);
}
sub carp {
DXDebug::dbgprintring(25) if DXDebug('nologchan');
DXDebug::dbgprintring(25) if DXDebug::isdbg('nologchan');
# DXDebug::dbg(Carp::shortmess(\@_));
DXDebug::longmess(\@_);
}
sub cluck {
DXDebug::dbgprintring(25) if DXDebug('nologchan');
DXDebug::dbgprintring(25) if DXDebug::isdbg('nologchan');
# DXDebug::dbg(Carp::longmess(\@_));
DXDebug::longmess(\@_);
} );