X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fmsg.pl;h=36b75dc7a9f116a824b2f22e4a8a566d76a155cd;hb=cf33b1fa05b8e3489232a4e57f0ba2542b0e7a64;hp=70c99b01f688b5f5b4378695f28e93d2307aa6ec;hpb=371caba1b5b241d10e9f68bfb2b866141f3ea84e;p=spider.git

diff --git a/cmd/msg.pl b/cmd/msg.pl
index 70c99b01..36b75dc7 100644
--- a/cmd/msg.pl
+++ b/cmd/msg.pl
@@ -18,8 +18,8 @@ my $data;
 
 #$DB::single = 1;
 
-$cmd = shift @f if $f[0] =~ /^\w+$/;
-$msgno = shift @f if $f[0] =~ /^\d+$/;
+$cmd = shift @f if @f && $f[0] =~ /^\w+$/;
+$msgno = shift @f if @f && $f[0] =~ /^\d+$/;
 
 # handle queuing
 if ($cmd =~ /^qu/i && !$msgno) {