Your message dated Wed, 27 Sep 2006 17:07:09 +0200
with message-id <[EMAIL PROTECTED]>
and subject line Bug#348301: libnet-dns-perl: Nameserver.pm doesn't return
$peerhost
has caused the attached Bug report to be marked as done.
This means that you claim that the problem has been dealt with.
If this is not the case it is now your responsibility to reopen the
Bug report if necessary, and/or fix the problem forthwith.
(NB: If you are a system administrator and have no idea what I am
talking about this indicates a serious mail system misconfiguration
somewhere. Please contact me immediately.)
Debian bug tracking system administrator
(administrator, Debian Bugs database)
--- Begin Message ---
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"
--- End Message ---
--- Begin Message ---
Package: libnet-dns-perl
Version: 0.57-1
thanks
While preparing another upload I found this old bug. Looks
like I did never reply to it nor close it. Sorry.
Hoping a late answer feels better than no one:
On Mon, 16 Jan 2006 14:57:20 +0800
Arne Goetje <[EMAIL PROTECTED]> wrote:
> 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.
Thanks for your report and for the patch. Everything was fine
with it. Upstream fixed it, too.
The error was fixed in Debian with upload of 0.57. This mail
marks this bug as such.
Regards
Florian
--
Florian Hinzmann private: [EMAIL PROTECTED]
Debian: [EMAIL PROTECTED]
PGP Key / ID: 1024D/B4071A65
Fingerprint : F9AB 00C1 3E3A 8125 DD3F DF1C DF79 A374 B407 1A65
--- End Message ---
