cmd/show/debug_ring.pl

   1 #
   2 # Log the current values of the DXDebug dbgring butter
   3 #
   4 #
   5 #
   6 my $self = shift;
   7 my $line = shift;;
   8 return (1, $self->msg('e5')) unless $self->priv >= 9;
   9
  10 my @args = split /\s+/, $line;
  11 my $n;
  12 my $doclear;
  13
  14 for (@args) {
  15         say "arg: $_";
  16         $n = 0+$_ if /^\d+$/;
  17         $doclear++ if /^clear$/;
  18 }
  19 my $lines = DXDebug::dbgprintring($n);
  20 DXDebug::dbgclearring() if $doclear;
  21
  22 return (1, qq{Contents of $lines lines of debug ring buffer logged. View with watchdbg.});