From eba7370bb0458ae84b4815f30494a7c389008d0e Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Fri, 3 Mar 2023 13:10:43 +0000 Subject: [PATCH] reduce ring buffer output on carp/cluck in DXDebug --- perl/DXDebug.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl/DXDebug.pm b/perl/DXDebug.pm index a3e06c4d..f249282e 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::isdbg('nologchan'); + DXDebug::dbgprintring(5) if DXDebug::isdbg('nologchan'); # DXDebug::dbg(Carp::shortmess(\@_)); DXDebug::longmess(\@_); } sub cluck { - DXDebug::dbgprintring(25) if DXDebug::isdbg('nologchan'); + DXDebug::dbgprintring(5) if DXDebug::isdbg('nologchan'); # DXDebug::dbg(Carp::longmess(\@_)); DXDebug::longmess(\@_); } ); -- 2.43.0