Mail archive
alpine-devel

Re: [alpine-devel] SpamAssassin DNSBL tests fail after changes in perl (patch included)

From: Leonardo Arena <rnalrd_at_gmail.com>
Date: Mon, 22 Dec 2014 17:12:13 +0100

On mer, 2014-12-17 at 11:49 +0200, Johan Dahlberg wrote:
> --- SpamAssassin/DnsResolver.pm.bak
> +++ SpamAssassin/DnsResolver.pm
> _at_@ -204,8 +204,10 @@
> _at_ns_addr_port = @{$self->{conf}->{dns_servers}};
> dbg("dns: servers set by config to: %s", join(',
> ',_at_ns_addr_port));
> } elsif ($res) { # default as provided by Net::DNS, e.g.
> /etc/resolv.conf
> - _at_ns_addr_port = map(untaint_var("[$_]:" . $res->{port}),
> - _at_{$res->{nameservers}});
> + my _at_ns = $res->UNIVERSAL::can('nameservers') ? $res->nameservers
> + :
> _at_{$res->{nameservers}};
> + my $port = $res->UNIVERSAL::can('port') ? $res->port :
> $res->{port};
> + _at_ns_addr_port = map(untaint_var("[$_]:" . $port), @ns);
> dbg("dns: servers obtained from Net::DNS : %s", join(',
> ',_at_ns_addr_port));
> }
> return _at_ns_addr_port;


Hi,
thanks for your contribution.
Would it be possible to have a GIT patch? It would be easier and 100%
error-free to apply.
Thanks!

R,
leo





---
Unsubscribe:  alpine-devel+unsubscribe_at_lists.alpinelinux.org
Help:         alpine-devel+help_at_lists.alpinelinux.org
---
Received on Mon Dec 22 2014 - 17:12:13 GMT