Package: libnet-dns-perl Version: 0.53-2 Severity: normal Tags: patch The $peerhost variable is empty. This is due to some typos in th e Nameserver.pm file. (At least this is true for perl 5.8, I haven't tested it with other versions.)
Please see the attached patch. I'm not sure if it is in a correct format though... (this is the first patch I send in... :) ). If you need it in a different format, please contact me and give some advice. Thank you. Cheers Arne -- System Information: Debian Release: testing/unstable APT prefers unstable APT policy: (990, 'unstable'), (100, 'testing') Architecture: i386 (i686) Shell: /bin/sh linked to /bin/bash Kernel: Linux 2.6.15-1-686 Locale: LANG=en_US.UTF-8, LC_CTYPE=zh_TW.UTF-8 (charmap=UTF-8) Versions of packages libnet-dns-perl depends on: ii libc6 2.3.5-11 GNU C Library: Shared libraries an ii libdigest-hmac-perl 1.01-3 create standard message integrity ii libnet-ip-perl 1.24-1 Perl extension for manipulating IP ii perl [libmime-base64-perl] 5.8.7-10 Larry Wall's Practical Extraction ii perl-base [perlapi-5.8.7] 5.8.7-10 The Pathologically Eclectic Rubbis libnet-dns-perl recommends no packages. -- no debconf information
--- Nameserver.pm.orig 2006-01-16 12:15:46.000000000 +0800 +++ Nameserver.pm 2006-01-16 13:20:48.000000000 +0800 @@ -293 +293 @@ - my $peerhost = $sock->peerhost; + my $peerhost = $sock->peerhost(); @@ -295 +295 @@ - print "TCP connection from ", $sock->peerhost, ":", $sock->peerport, "\n" + print "TCP connection from ", $sock->peerhost(), ":", $sock->peerport(), "\n" @@ -333 +333 @@ - my ($peerhost,$peerport); + my ($peerhost,$peerport) = ($sock->peerhost(), $sock->peerport()); @@ -337 +337 @@ - print "UDP connection from ", $sock->peerhost, ":", $sock->peerport, "\n" + print "UDP connection from ", $sock->peerhost(), ":", $sock->peerport(), "\n"
