Subject: | RR/SRV rdatastr |
use Net::DNS;
my $srv = Net::DNS::RR->new("_nicname._tcp.se. 86400 IN SRV 0 0 43 whois.nic-se.se.");
$srv->print;
_nicname._tcp.se. 86400 IN SRV 0 0 43 whois.nic-se.se
fix, perhaps something like this - dunno if target can be . terminate already in some cases.
--- SRV.pm.orig Mon Aug 1 11:22:34 2005
+++ SRV.pm Mon Aug 1 11:22:25 2005
@@ -42,6 +42,7 @@
if (exists $self->{'priority'}) {
$rdatastr = join(' ', @{$self}{qw(priority weight port target)});
+ $rdatastr =~ s/(.*[^\.])$/$1./;
} else {
$rdatastr = '';
}