X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=598dc7ea4cefd04771d0a19dc226e491c5d22fe9;hb=c32da9acc192ee726e1fad7425990a37ce7eb27f;hp=cd3bf74b0f757922abcb78545cd274899d31aa41;hpb=b672afe940f843351af2bc4a87b4c4239f3a5140;p=spider.git

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index cd3bf74b..598dc7ea 100644
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -1092,7 +1092,7 @@ sub do_send_stuff
 				$loc->{reject}++;
 			}
 
-			if (@{$loc->{lines}}) {
+			if ($loc->{lines} && @{$loc->{lines}}) {
 				push @{$loc->{lines}}, length($line) > 0 ? $line : " ";
 			} else {
 				# temporarily store any R: lines so that we end up with