Mailinglist Archive: opensuse-support (220 mails)

< Previous Next >
Re: [opensuse-support] Perl problem in SpamAssassin, uninitialized value.

On Tue, 29 Jan 2019, Dave Howorth wrote:
On Tue, 29 Jan 2019 00:07:49 +0100 (CET)"Carlos E. R."
<robin.listas@xxxxxxxxxxxxxx> 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/
line 1044.
It refers to this code:

sub lookup_dnsbl_for_ip {
my ($self, $pms, $obj, $ip) = @_;

$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.


What is the output of:
perl -MNet::DNS -e 'print "$Net::DNS::VERSIONn";'

What SUSEn do you use?


"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@xxxxxxxxxxxx
To contact the owner, e-mail: opensuse-support+owner@xxxxxxxxxxxx

< Previous Next >
Follow Ups