projects
/
spider.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
1cecfcc41308d6bd40c4731fbdc6ca4f627fa16f
[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