X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=blobdiff_plain;f=perlmail-accept;h=3432acb7d094afd6508523254e3715e30d3177f1;hp=5abd067e40f5ac96d581d404281f145ccd582fde;hb=851de39e0b19fb4bd49c386e0da048e987110b72;hpb=d3f7164a228e46921c5a9acaab1c086461e209bd;ds=inline

diff --git a/perlmail-accept b/perlmail-accept
index 5abd067..3432acb 100755
--- a/perlmail-accept
+++ b/perlmail-accept
@@ -566,7 +566,9 @@ my($domain,$full,$timeout)=@_;
 		my $code=Mail::Audit::rblcheck($self_faked,$timeout);
 		next if !$code;
 		# Some 0.0.0.0 etc. found for <linux-kernel@>, see: &Mail::Audit::MAPS::_checkit
-		return $code if $code!='1 Invalid IP address ';
+		# Do not: $code!='1 Invalid IP address '
+		# as it causes warn.
+		return $code if $code ne '1 Invalid IP address ';
 		return if !$full;
 		}
 }