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 DXDebug::dbgprintring();
  11 DXDebug::dbgclearring() if $line =~ /^clear$/;
  12
  13 return (1, 'Contents of debug ring buffer logged. View with watchdbg.');