fix the issue in DXProt::add_thingy

[spider.git] / cmd / show / debug_ring.pl

diff --git a/cmd/show/debug_ring.pl b/cmd/show/debug_ring.pl
index 272da35c2bb7d69ca86a07f391c5d7e33ac146d8..9513b9655078aa58a089edfabf913ff0173ad62d 100644 (file)
--- a/cmd/show/debug_ring.pl
+++ b/cmd/show/debug_ring.pl
@@ -12,10 +12,12 @@ my $n;
 my $doclear;
 
 for (@args) {
+       say "arg: $_";
        $n = 0+$_ if /^\d+$/;
        $doclear++ if /^clear$/;
 }
-DXDebug::dbgprintring($n);
+my $lines = DXDebug::dbgprintring($n);
 DXDebug::dbgclearring() if $doclear;
+dge;
 
-return (1, 'Contents of debug ring buffer logged. View with watchdbg.');
+return (1, qq{Contents of $lines lines of debug ring buffer logged. View with watchdbg.});