#
-# add a debug level
+# remove a debug level
+#
+# Copyright (c) 1998 - Dirk Koopman
#
# $Id$
#
-use DXDebug;
-
-$self = shift;
+my ($self, $line) = @_;
return (0) if $self->priv < 9;
-dbgsub(split);
+dbgsub(split /\s+/, $line);
my $set = join ' ', dbglist();
return (1, "Debug Levels now: $set");