cmd/unset/debug.pl

   1 #
   2 # add a debug level
   3 #
   4 # $Id$
   5 #
   6
   7 use DXDebug;
   8
   9 $self = shift;
  10 return (0) if $self->priv < 9;
  11
  12 dbgsub(split);
  13 my $set = join ' ', dbglist();
  14
  15 return (1, "Debug Levels now: $set");