cmd/debug.pl

   1 #
   2 # go INSTANTLY into debug mode (if you are in the debugger!)
   3 #
   4 # remember perl -d cluster.pl to use this
   5 #
   6 # Copyright (c) 1998 Dirk Koopman G1TLH
   7 #
   8 # $Id$
   9 #
  10
  11 my $self = shift;
  12 return (1, $self->msg('e5')) if $self->priv < 9;
  13
  14 $DB::single = 1;
  15