cmd/set/debug.pl

   1 #
   2 # add a debug level
   3 #
   4 # $Id$
   5 #
   6
   7 my ($self, $line) = @_;
   8 return (0) if $self->priv < 9;
   9
  10 dbgadd(split /\s+/, $line);
  11 my $set = join ' ', dbglist();
  12
  13 return (1, "Debug Levels now: $set");