From 5b8c14dd8ac82a211bc1bfbcefee7e7820a812a1 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 3 Mar 2023 13:04:50 +0000 Subject: [PATCH] Fix DXDebug::DXDebug issue --- Changes | 4 ++++ perl/DXDebug.pm | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 38eaec52..9d9e2466 100644 --- a/Changes +++ b/Changes @@ -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======================================================================= diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm index c2e5f28f..a3e06c4d 100644 --- a/perl/DXDebug.pm +++ b/perl/DXDebug.pm @@ -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(\@_); } ); -- 2.34.1