X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fmsg.pl;h=36b75dc7a9f116a824b2f22e4a8a566d76a155cd;hb=e76e5e7e943c5af1d984ec60ad80524424420fa2;hp=70c99b01f688b5f5b4378695f28e93d2307aa6ec;hpb=7c1e8be08db2526caaa1c1bb7905548841b696e2;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) {