projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
reduce ring buffer output on carp/cluck in DXDebug
[spider.git]
/
perl
/
DXDebug.pm
diff --git
a/perl/DXDebug.pm
b/perl/DXDebug.pm
index a3e06c4d969ed2528bd07b6fcd06da968517578b..f249282e5b57e5d69399de8ece3cde3d5e1763f6 100644
(file)
--- a/
perl/DXDebug.pm
+++ b/
perl/DXDebug.pm
@@
-69,12
+69,12
@@
if (!defined $DB::VERSION) {
exit(-1);
}
sub carp {
exit(-1);
}
sub carp {
- DXDebug::dbgprintring(
2
5) if DXDebug::isdbg('nologchan');
+ DXDebug::dbgprintring(5) if DXDebug::isdbg('nologchan');
# DXDebug::dbg(Carp::shortmess(\@_));
DXDebug::longmess(\@_);
}
sub cluck {
# DXDebug::dbg(Carp::shortmess(\@_));
DXDebug::longmess(\@_);
}
sub cluck {
- DXDebug::dbgprintring(
2
5) if DXDebug::isdbg('nologchan');
+ DXDebug::dbgprintring(5) if DXDebug::isdbg('nologchan');
# DXDebug::dbg(Carp::longmess(\@_));
DXDebug::longmess(\@_);
} );
# DXDebug::dbg(Carp::longmess(\@_));
DXDebug::longmess(\@_);
} );