X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fload%2Fdxqsl.pl;h=679864c0077576eb82f43ec7e212500c45c93398;hb=431c8a14cdecd0ec455b6619380687dbe84e2a35;hp=b17382294f6e17cb4f20833a088a3688533e79ff;hpb=2747e0fe4269e9a7e095c333598191eb9dca63fc;p=spider.git diff --git a/cmd/load/dxqsl.pl b/cmd/load/dxqsl.pl index b1738229..679864c0 100644 --- a/cmd/load/dxqsl.pl +++ b/cmd/load/dxqsl.pl @@ -5,4 +5,6 @@ my $self = shift; return (1, $self->msg('e5')) if $self->priv < 9; QSL::finish(); my $r = QSL::init(1); -return (1, $r ? $self->msg('ok') : $self->msg('e2', "$!")); +my @out; +push @out, $self->msg($r ? 'ok':'e2', "$!"); +return (1, @out);