[opensuse-support] Perl problem in SpamAssassin, uninitialized value.
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 Hi, I get tons of these in the log, and the "uninitialized" ones go also to the warning log. <2.6> 2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd: connection from localhost [127.0.0.1]:35696 to port 783, fd 6 <2.6> 2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd: setuid to cer succeeded <2.6> 2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd: 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. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $3 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $2 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - dns: new_dns_packet (domain=...(.zen.spamhaus.org. type=A class=IN) failed: a domain name contains a null label <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. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $3 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $2 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. <2.6> 2019-01-28 23:40:33 Telcontar spamd 16758 - - spamd: clean message (-2.5/5.0) for cer:1000 in 1.4 seconds, 11344 bytes. <2.6> 2019-01-28 23:40:33 Telcontar spamd 16758 - - spamd: result: . -2 - BAYES_00,HEADER_FROM_DIFFERENT_DOMAINS,MAILING_LIST_MULTI,RCVD_IN_DNSWL_MED,RDNS_NONE scantime=1.4,size=11344,user=cer,uid=1000,required_score=5.0,rhost=localhost,raddr=127.0.0.1,rport=35696,mid=<26edd7a4-9c65-0a7d-2d7d-289f2049cdff@iinet.net.au>,bayes=0.000069,autolearn=disabled <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - prefork: child states: BI <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: handled cleanup of child pid [16758] due to SIGCHLD: exit 0 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: server successfully spawned child process, pid 16792 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - prefork: child states: II <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: handled cleanup of child pid [16758] due to SIGCHLD: exit 0 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: server successfully spawned child process, pid 16792 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - prefork: child states: II <2.6> 2019-01-28 23:40:34 Telcontar spamd 16774 - - spamd: connection from localhost [127.0.0.1]:35702 to port 783, fd 6 <2.6> 2019-01-28 23:40:34 Telcontar spamd 16774 - - spamd: setuid to cer succeeded <2.6> 2019-01-28 23:40:34 Telcontar spamd 16774 - - spamd: processing message <5387304.rUZBsZdq...> for cer:1000 <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - 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, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized value $3 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized value $2 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - dns: new_dns_packet (domain=...(.zen.spamhaus.org. type=A class=IN) failed: a domain name contains a null label <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - 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, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized value $3 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized value $2 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044, <GEN6687> line 265. <2.6> 2019-01-28 23:40:35 Telcontar spamd 16774 - - spamd: clean message (-2.5/5.0) for cer:1000 in 1.4 seconds, 11408 bytes. <2.6> 2019-01-28 23:40:35 Telcontar spamd 16774 - - spamd: result: . -2 - BAYES_00,HEADER_FROM_DIFFERENT_DOMAINS,MAILING_LIST_MULTI,MIME_QP_LONG_LINE,RCVD_IN_DNSWL_MED,RDNS_NONE scantime=1.4,size=11408,user=cer,uid=1000,required_score=5.0,rhost=localhost,raddr=127.0.0.1,rport=35702,mid=<5387304.rUZBsZdqEj@roadrunner.suse>,bayes=0.002213,autolearn=disabled <2.6> 2019-01-28 23:40:35 Telcontar spamd 3930 - - prefork: child states: BI <2.6> 2019-01-28 23:40:35 Telcontar spamd 3930 - - spamd: handled cleanup of child pid [16774] due to SIGCHLD: exit 0 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"; <============ my $conf = $pms->{conf}; my $tflags = $conf->{tflags}; my $cfns = $pms->{uridnsbl_active_rules_nsrevipbl}; my $cfa = $pms->{uridnsbl_active_rules_arevipbl}; foreach my $rulename (keys %$cfa, keys %$cfns) { my $rulecf = $conf->{uridnsbls}->{$rulename}; # ips_only/domains_only lookups should not act on this kind of BL next if defined $tflags->{$rulename} && $tflags->{$rulename} =~ /\b(?:ips_only|domains_only)\b/; $self->lookup_single_dnsbl($pms, $obj, $rulename, $revip, $rulecf->{zone}, $rulecf->{type}); } } - -- Cheers Carlos E. R. (from 15.0 x86_64 at Telcontar) -----BEGIN PGP SIGNATURE----- iHoEARECADoWIQQZEb51mJKK1KpcU/W1MxgcbY1H1QUCXE+LRhwccm9iaW4ubGlz dGFzQHRlbGVmb25pY2EubmV0AAoJELUzGBxtjUfVIc8An03FgYIij2QPfc5/8iLM TS0DUrDMAJ0ZDrhxw5WawheYday+sHeYLEYpTw== =v4V6 -----END PGP SIGNATURE----- -- To unsubscribe, e-mail: opensuse-support+unsubscribe@opensuse.org To contact the owner, e-mail: opensuse-support+owner@opensuse.org
On Tue, 29 Jan 2019 00:07:49 +0100 (CET) "Carlos E. R." <robin.listas@telefonica.net> wrote:
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1
Hi,
I get tons of these in the log, and the "uninitialized" ones go also to the warning log.
<2.6> 2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd: connection from localhost [127.0.0.1]:35696 to port 783, fd 6 <2.6> 2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd: setuid to cer succeeded <2.6> 2019-01-28 23:40:31 Telcontar spamd 16758 - - spamd: 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. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $3 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $2 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - dns: new_dns_packet (domain=...(.zen.spamhaus.org. type=A class=IN) failed: a domain name contains a null label <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. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $3 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. <2.4> 2019-01-28 23:40:32 Telcontar spamd 16758 - - Use of uninitialized value $2 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044. <2.6> 2019-01-28 23:40:33 Telcontar spamd 16758 - - spamd: clean message (-2.5/5.0) for cer:1000 in 1.4 seconds, 11344 bytes. <2.6> 2019-01-28 23:40:33 Telcontar spamd 16758 - - spamd: result: . -2 - BAYES_00,HEADER_FROM_DIFFERENT_DOMAINS,MAILING_LIST_MULTI,RCVD_IN_DNSWL_MED,RDNS_NONE scantime=1.4,size=11344,user=cer,uid=1000,required_score=5.0,rhost=localhost,raddr=127.0.0.1,rport=35696,mid=<26edd7a4-9c65-0a7d-2d7d-289f2049cdff@iinet.net.au>,bayes=0.000069,autolearn=disabled <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - prefork: child states: BI <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: handled cleanup of child pid [16758] due to SIGCHLD: exit 0 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: server successfully spawned child process, pid 16792 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - prefork: child states: II <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: handled cleanup of child pid [16758] due to SIGCHLD: exit 0 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - spamd: server successfully spawned child process, pid 16792 <2.6> 2019-01-28 23:40:33 Telcontar spamd 3930 - - prefork: child states: II <2.6> 2019-01-28 23:40:34 Telcontar spamd 16774 - - spamd: connection from localhost [127.0.0.1]:35702 to port 783, fd 6 <2.6> 2019-01-28 23:40:34 Telcontar spamd 16774 - - spamd: setuid to cer succeeded <2.6> 2019-01-28 23:40:34 Telcontar spamd 16774 - - spamd: processing message <5387304.rUZBsZdq...> for cer:1000 <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - 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, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized value $3 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized value $2 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - dns: new_dns_packet (domain=...(.zen.spamhaus.org. type=A class=IN) failed: a domain name contains a null label <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - 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, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized value $3 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044, <GEN6687> line 265. <2.4> 2019-01-28 23:40:34 Telcontar spamd 16774 - - Use of uninitialized value $2 in concatenation (.) or string at /usr/lib/perl5/vendor_perl/5.26.1/Mail/SpamAssassin/Plugin/URIDNSBL.pm line 1044, <GEN6687> line 265. <2.6> 2019-01-28 23:40:35 Telcontar spamd 16774 - - spamd: clean message (-2.5/5.0) for cer:1000 in 1.4 seconds, 11408 bytes. <2.6> 2019-01-28 23:40:35 Telcontar spamd 16774 - - spamd: result: . -2 - BAYES_00,HEADER_FROM_DIFFERENT_DOMAINS,MAILING_LIST_MULTI,MIME_QP_LONG_LINE,RCVD_IN_DNSWL_MED,RDNS_NONE scantime=1.4,size=11408,user=cer,uid=1000,required_score=5.0,rhost=localhost,raddr=127.0.0.1,rport=35702,mid=<5387304.rUZBsZdqEj@roadrunner.suse>,bayes=0.002213,autolearn=disabled <2.6> 2019-01-28 23:40:35 Telcontar spamd 3930 - - prefork: child states: BI <2.6> 2019-01-28 23:40:35 Telcontar spamd 3930 - - spamd: handled cleanup of child pid [16774] due to SIGCHLD: exit 0
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"; <============
my $conf = $pms->{conf}; my $tflags = $conf->{tflags}; my $cfns = $pms->{uridnsbl_active_rules_nsrevipbl}; my $cfa = $pms->{uridnsbl_active_rules_arevipbl}; foreach my $rulename (keys %$cfa, keys %$cfns) { my $rulecf = $conf->{uridnsbls}->{$rulename};
# ips_only/domains_only lookups should not act on this kind of BL next if defined $tflags->{$rulename} && $tflags->{$rulename} =~ /\b(?:ips_only|domains_only)\b/;
$self->lookup_single_dnsbl($pms, $obj, $rulename, $revip, $rulecf->{zone}, $rulecf->{type}); } }
And your question/point is? Hint: what is the value of $ip? Extra hint: try adding: warn "ip='$ip'\n" unless defined $1; -- To unsubscribe, e-mail: opensuse-support+unsubscribe@opensuse.org To contact the owner, e-mail: opensuse-support+owner@opensuse.org
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
On 29/01/2019 12.02, David Haller wrote:
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.
Thus it is a known bug upstream, and I don't need to report it on our bugzilla. Thanks. Or is a patch needed? Wait, it was reported on 2016. Still not solved? :-o
What is the output of: perl -MNet::DNS -e 'print "$Net::DNS::VERSIONn";'
cer@Telcontar:~> perl -MNet::DNS -e 'print "$Net::DNS::VERSIONn";' cer@Telcontar:~>
What SUSEn do you use?
The one in the signature, 15.0 cer@Telcontar:~> rpm -q spamassassin spamassassin-3.4.1-lp150.5.3.x86_64 cer@Telcontar:~> -- Cheers / Saludos, Carlos E. R. (from 15.0 x86_64 at Telcontar)
Hello, On Tue, 29 Jan 2019, Carlos E. R. wrote:
On 29/01/2019 12.02, David Haller wrote:
Thus it is a known bug upstream, and I don't need to report it on our bugzilla. Thanks.
It looks like it.
Or is a patch needed?
No idea.
Wait, it was reported on 2016. Still not solved? :-o
No, I think it was supposed to be solved by requiring a newer version of Net::DNS, i.e. Net::DNS >= 0.73.
What is the output of: perl -MNet::DNS -e 'print "$Net::DNS::VERSIONn";'
cer@Telcontar:~> perl -MNet::DNS -e 'print "$Net::DNS::VERSIONn";' cer@Telcontar:~>
Darn. There's a backslash gone amiss somewhen. $ perl -MNet::DNS -e 'print "$Net::DNS::VERSION\n";' last chars: O N backslash n quote semicolon apostrophe
What SUSEn do you use?
The one in the signature, 15.0
I had that deleted when typing ;(. Ok, according to sw.o.o, you _should_ have perl-Net-DNS 1.14 installed. Which should be new enough. But better check what your perl actually picks up, see above cmdline. Could be some old Net/DNS.pm somewhere left over in an overriding PERL5LIB path you've forgotten about years ago (/usr/local, ~/, ... check your PERL5LIB env-var too, and any sh-rc-files you mucked about in /etc/ like /etc/profile.local, /etc{,/*sh}/*shrc, and such ;) Also helpful: start up "cpan" and then enter "m Net::DNS" at it's prompt. Should look something like this (I maintain my own perl in ~/ currently): ==== cpan[1]> m Net::DNS Module id = Net::DNS DESCRIPTION Interface to the DNS resolver CPAN_USERID NLNETLABS (NLnet Labs <cpan@nlnetlabs.nl>) CPAN_VERSION 1.19 CPAN_FILE N/NL/NLNETLABS/Net-DNS-1.19.tar.gz UPLOAD_DATE 2018-11-15 DSLIP_STATUS RmhOp (released,mailing-list,hybrid,object-oriented,Standard-Perl) MANPAGE Net::DNS - Perl Interface to the Domain Name System INST_FILE /home/dh/lib/perl5/site_perl/5.28.0/Net/DNS.pm INST_VERSION 1.19 ==== The last two lines INST_FILE and INST_VERSION are the relevant lines. And inst-file should be from your perl-Net-DNS rpm package, i.e. check with 'rpm -qf' if in doubt ;)
cer@Telcontar:~> rpm -q spamassassin spamassassin-3.4.1-lp150.5.3.x86_64
Should not be different, code is the same in that function. You might try sa 3.4.2 from the devel:languages:perl repo though. HTH, -dnh --
Seems you really are a social leper these days if you're not on FB. -- Julian Macassey Farcebook is AOL with better graphics. -- Michel And worse grammar. -- Roger Burton West -- To unsubscribe, e-mail: opensuse-support+unsubscribe@opensuse.org To contact the owner, e-mail: opensuse-support+owner@opensuse.org
On 29/01/2019 13.06, David Haller wrote:
Hello,
On Tue, 29 Jan 2019, Carlos E. R. wrote:
On 29/01/2019 12.02, David Haller wrote:
Thus it is a known bug upstream, and I don't need to report it on our bugzilla. Thanks.
It looks like it.
Or is a patch needed?
No idea.
Wait, it was reported on 2016. Still not solved? :-o
No, I think it was supposed to be solved by requiring a newer version of Net::DNS, i.e. Net::DNS >= 0.73.
What is the output of: perl -MNet::DNS -e 'print "$Net::DNS::VERSIONn";'
cer@Telcontar:~> perl -MNet::DNS -e 'print "$Net::DNS::VERSIONn";' cer@Telcontar:~>
Darn. There's a backslash gone amiss somewhen.
$ perl -MNet::DNS -e 'print "$Net::DNS::VERSION\n";'
last chars: O N backslash n quote semicolon apostrophe
cer@Telcontar:~> perl -MNet::DNS -e 'print "$Net::DNS::VERSION\n";' 1.14 cer@Telcontar:~> That's more recent than 0.73, right?
What SUSEn do you use?
The one in the signature, 15.0
I had that deleted when typing ;(. Ok, according to sw.o.o, you _should_ have perl-Net-DNS 1.14 installed. Which should be new enough.
But I have the problem...
But better check what your perl actually picks up, see above cmdline. Could be some old Net/DNS.pm somewhere left over in an overriding PERL5LIB path you've forgotten about years ago (/usr/local, ~/, ... check your PERL5LIB env-var too, and any sh-rc-files you mucked about in /etc/ like /etc/profile.local, /etc{,/*sh}/*shrc, and such ;)
cer@Telcontar:~> locate Net/DNS.pm /data/main_root_bck/000/usr/lib/perl5/vendor_perl/5.18.2/x86_64-linux-thread-multi/Net/DNS.pm /data/main_root_bck/001/usr/lib/perl5/vendor_perl/5.18.2/x86_64-linux-thread-multi/Net/DNS.pm /data/main_root_bck/002/usr/lib/perl5/vendor_perl/5.26.1/Net/DNS.pm /data/storage_b/Grande/copia/test_a__factory_10.2/usr/lib/perl5/vendor_perl/5.8.8/i586-linux-thread-multi/Net/DNS.pm /data/storage_d/copia_storage_e/Images_main_at_114/copia_main_usr/lib/perl5/vendor_perl/5.12.3/x86_64-linux-thread-multi/Net/DNS.pm /data/storage_d/para_quemar/cmp/test_a__factory_10.2/usr/lib/perl5/vendor_perl/5.8.8/i586-linux-thread-multi/Net/DNS.pm /other/ssd-test/usr/lib/perl5/vendor_perl/5.26.1/Net/DNS.pm /usr/lib/perl5/vendor_perl/5.26.1/Net/DNS.pm cer@Telcontar:~> There is only one. The others are backups.
Also helpful: start up "cpan" and then enter "m Net::DNS" at it's prompt. Should look something like this (I maintain my own perl in ~/ currently):
cer@Telcontar:~> cpan CPAN.pm requires configuration, but most of it can be done automatically. If you answer 'no' below, you will enter an interactive dialog for each configuration option instead. Would you like to configure as much as possible automatically? [yes] At this point I aborted. -- Cheers / Saludos, Carlos E. R. (from 15.0 x86_64 at Telcontar)
On 29/01/2019 10.57, Dave Howorth wrote:
On Tue, 29 Jan 2019 00:07:49 +0100 (CET) "Carlos E. R." <> wrote:
And your question/point is?
What can I change to solve it?
Hint: what is the value of $ip? Extra hint: try adding: warn "ip='$ip'\n" unless defined $1;
Hint: I don't know anything of Perl. -- Cheers / Saludos, Carlos E. R. (from 15.0 x86_64 at Telcontar)
participants (3)
-
Carlos E. R. -
Dave Howorth -
David Haller