mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
16 lines
226 B
Perl
16 lines
226 B
Perl
#
|
|
# remove a debug level
|
|
#
|
|
# Copyright (c) 1998 - Dirk Koopman
|
|
#
|
|
#
|
|
#
|
|
|
|
my ($self, $line) = @_;
|
|
return (0) if $self->priv < 9;
|
|
|
|
dbgsub(split /\s+/, $line);
|
|
my $set = join ' ', dbglist();
|
|
|
|
return (1, "Debug Levels now: $set");
|