X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Funset%2Fstartup.pl;h=a08601c424a5b3444fda2e6f6fe89a55aca4cd9e;hb=e2ca7811e49048bfad82ec31e148a79fe9904e2b;hp=77cc3ea4ad6a5096d017331e2e08570483be4d80;hpb=5f2487385b59dbe88dc763fa9c26fe5a9b4a6b30;p=spider.git diff --git a/cmd/unset/startup.pl b/cmd/unset/startup.pl index 77cc3ea4..a08601c4 100644 --- a/cmd/unset/startup.pl +++ b/cmd/unset/startup.pl @@ -3,14 +3,10 @@ # # Copyright (c) 2005 Dirk Koopman G1TLH # -# $Id$ +# # my ($self, $line) = @_; return (1, $self->msg('e5')) if $self->remotecmd || $self->inscript; return (1, $self->msg('e5')) if $line && $self->priv < 5; -my @out; - -Script::erase($line || $self->call); -push @out, $self->msg('done'); -return (1, @out); +return (1, Script::erase($self));