[Bug 7338] Unexpected parenthesis in DNS RR

[bugzilla-daemon]

https://bz.apache.org/SpamAssassin/show_bug.cgi?id=7338

Curtis Smith <c...@purdue.edu> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |c...@purdue.edu

--- Comment #3 from Curtis Smith <c...@purdue.edu> ---
It's not a DNS server. It Perl. Perl craziness. And it's Perl/Net::DNS
specific.

Here's an sample

$ ./sample.pl
1.01
www.associationofconstructionanddevelopment.net.        300     IN      A     
( 
        104.18.61.69 )
www.associationofconstructionanddevelopment.net.        300     IN      A     
( 
        104.18.60.69 )

code:

use strict;

use Net::DNS;
print Net::DNS->version, "\n";

my $res = Net::DNS::Resolver->new;
my $reply = $res->search('www.associationofconstructionanddevelopment.net');
if ($reply) {
        foreach my $rr ($reply->answer) {
                next unless ($rr->type eq 'A');
                print $rr->string, "\n";
        }
}

When I run this on my Ubuntu 16.04 host, with Net::DNS version 0.81, it does
not happen:

$ ./sample.pl
0.81
www.associationofconstructionanddevelopment.net.        277     IN      A     
104.18.60.69
www.associationofconstructionanddevelopment.net.        277     IN      A     
104.18.61.69

-- 
You are receiving this mail because:
You are the assignee for the bug.