Bug #99320 for Net-DNS: Net::DNS::ZoneFile bug in "$ORIGIN ."

Sun Oct 05 21:30:32 2014 csr1 [...] ziobro.rochester.ny.us - Ticket created

CC:	Jim Ziobro <csr1 [...] ziobro.rochester.ny.us>
Subject:	Net::DNS::ZoneFile bug in "$ORIGIN ."
Date:	Sun, 05 Oct 2014 21:30:20 -0400
To:	bug-Net-DNS [...] rt.cpan.org
From:	z <csr1 [...] ziobro.rochester.ny.us>

Try: use Net::DNS::ZoneFile; $zonefile = new Net::DNS::ZoneFile( 'named.example' ); while ( $rr = $zonefile->read ) { $rr->print; } With named.example: $ORIGIN . 1 A 127.0.0.1 Results in double "." like: 1.. 0 IN A 127.0.0.1 perl -v: This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi

Tue Oct 07 07:56:02 2014 rwfranks [...] acm.org - Correspondence added

From:

rwfranks [...] acm.org

The simplest, although not the most efficient, fix is shown below: *** /home/rwf/svn/net-dns/lib/Net/DNS/Domain.pm 2014-06-24 13:30:08.503161000 +0100 --- Domain.pm 2014-10-07 12:36:48.007543163 +0100 *************** *** 151,157 **** my $head = _decode_ascii( join chr(46), map _escape($_), @$lref ); my $tail = $self->{origin} || return $self->{name} = $head || $dot; return $self->{name} = $tail->name unless length $head; ! return $self->{name} = join $dot, $head, $tail->name; } --- 151,157 ---- my $head = _decode_ascii( join chr(46), map _escape($_), @$lref ); my $tail = $self->{origin} || return $self->{name} = $head || $dot; return $self->{name} = $tail->name unless length $head; ! return $self->{name} = join $dot, $head, $tail->label; }

Tue Oct 07 07:56:03 2014 The RT System itself - Status changed from 'new' to 'open'

Tue Oct 14 16:47:56 2014 NLNETLABS [...] cpan.org - Correspondence added

Fix is in the repository and will be in the next release, Thanks

Tue Oct 14 16:47:57 2014 NLNETLABS [...] cpan.org - Status changed from 'open' to 'resolved'