Hello, On Tue, 29 Jan 2019, Dave Howorth wrote:
On Tue, 29 Jan 2019 00:07:49 +0100 (CET)"Carlos E. R." <robin.listas@telefonica.net> wrote: [..]
processing message <26edd7a4-9c65-0a7d-2d7d-289...> for cer:1000 <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $4 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. [..] It refers to this code:
sub lookup_dnsbl_for_ip { my ($self, $pms, $obj, $ip) = @_;
local($1,$2,$3,$4); $ip =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/; my $revip = "$4.$3.$2.$1"; <============
[..] And your question/point is?
Hint: what is the value of $ip? Extra hint: try adding: warn "ip='$ip'\n" unless defined $1;
BTW: the code in 3.4.2 is the same, just if you're using an older version. Hm. https://bz.apache.org/SpamAssassin/show_bug.cgi?id=7339 What is the output of: perl -MNet::DNS -e 'print "$Net::DNS::VERSIONn";' What SUSEn do you use? HTH, -dnh -- "Considering the number of wheels Microsoft has found reason to invent, one never ceases to be baffled by the minuscule number whose shape even vaguely resembles a circle". -- unknown, but _very_ sharp -- To unsubscribe, e-mail: opensuse-support+unsubscribe@opensuse.org To contact the owner, e-mail: opensuse-support+owner@opensuse.org