git://git.jankratochvil.net
/
PerlMail.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d3f7164
)
Fixed warn.
author
short
<>
Sun, 15 May 2005 23:47:48 +0000
(23:47 +0000)
committer
short
<>
Sun, 15 May 2005 23:47:48 +0000
(23:47 +0000)
perlmail-accept
patch
|
blob
|
history
diff --git
a/perlmail-accept
b/perlmail-accept
index
5abd067
..
3432acb
100755
(executable)
--- 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
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;
}
}
return if !$full;
}
}