From: Dirk Koopman Date: Fri, 3 Mar 2023 13:10:43 +0000 (+0000) Subject: reduce ring buffer output on carp/cluck in DXDebug X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=eba7370bb0458ae84b4815f30494a7c389008d0e;p=spider.git reduce ring buffer output on carp/cluck in DXDebug --- 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(\@_); } );