]> scm.dxcluster.org Git - spider.git/blob - cmd/debug.pl
nospawnify the rest of the known commands
[spider.git] / 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 #
9 #
10
11 my $self = shift;
12 return (1, $self->msg('e5')) if $self->priv < 9;
13
14 $DB::single = 1;
15