7. rewrote send so that an SB doesn't send a buckshee bull to NOPRIVATE!

[spider.git] / cmd / msg.pl

diff --git a/cmd/msg.pl b/cmd/msg.pl
index 70c99b01f688b5f5b4378695f28e93d2307aa6ec..36b75dc7a9f116a824b2f22e4a8a566d76a155cd 100644 (file)
--- 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) {