X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fdebug_ring.pl;h=a8a2900eb224f0729a188b26ac047114e6f41f33;hb=067835d5b0160e10a778252cf0dc6b2e4d1a74cb;hp=272da35c2bb7d69ca86a07f391c5d7e33ac146d8;hpb=63f0fc26e717837bc7c6990f27d26de91d65eb7e;p=spider.git

diff --git a/cmd/show/debug_ring.pl b/cmd/show/debug_ring.pl
index 272da35c..a8a2900e 100644
--- a/cmd/show/debug_ring.pl
+++ b/cmd/show/debug_ring.pl
@@ -12,10 +12,11 @@ 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;
 
-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.});