X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXMsg.pm;h=598dc7ea4cefd04771d0a19dc226e491c5d22fe9;hb=ec5995e84ce9c1b25112e1ee8a2bc7d01f033beb;hp=cd3bf74b0f757922abcb78545cd274899d31aa41;hpb=d4af9b75c46cddd2cc830961eb615975ed260a9e;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