projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Now add files that the previous commit refered to
[spider.git]
/
cmd
/
show
/
debug_ring.pl
diff --git
a/cmd/show/debug_ring.pl
b/cmd/show/debug_ring.pl
index 9a2eb01a3334f3e5b13803674431f6f11c0981f3..272da35c2bb7d69ca86a07f391c5d7e33ac146d8 100644
(file)
--- a/
cmd/show/debug_ring.pl
+++ b/
cmd/show/debug_ring.pl
@@
-7,7
+7,15
@@
my $self = shift;
my $line = shift;;
return (1, $self->msg('e5')) unless $self->priv >= 9;
my $line = shift;;
return (1, $self->msg('e5')) unless $self->priv >= 9;
-DXDebug::dbgprintring();
-DXDebug::dbgclearring() if $line =~ /^clear$/;
+my @args = split /\s+/, $line;
+my $n;
+my $doclear;
+
+for (@args) {
+ $n = 0+$_ if /^\d+$/;
+ $doclear++ if /^clear$/;
+}
+DXDebug::dbgprintring($n);
+DXDebug::dbgclearring() if $doclear;
return (1, 'Contents of debug ring buffer logged. View with watchdbg.');
return (1, 'Contents of debug ring buffer logged. View with watchdbg.');