| Subject: | Peerhost is undef |
Hi,
I can't use $peerhost in Net::DNS::Nameserver, for 0.53. It works in 0.49.
With this code:
sub reply_handler {
my ($qname, $qclass, $qtype, $client) = @_;
...
$client is undef. If I enable verbose output I can see the peerhost,
UDP connection from 10.105.1.254:62263.
This is a print of @_. (Using Data::Dumper)
$VAR1 = 'test.com';
$VAR2 = 'IN';
$VAR3 = 'A';
$VAR4 = undef;
$VAR5 = bless( {
'question' => [
bless( {
'qclass' => 'IN',
'qname' => 'test.com',
'qtype' => 'A'
}, 'Net::DNS::Question' )
],
'additional' => [],
'answer' => [],
'compnames' => {},
'authority' => [],
'header' => bless( {
'nscount' => 0,
'cd' => 0,
'qdcount' => 1,
'ancount' => 0,
'rcode' => 'NOERROR',
'tc' => 0,
'opcode' => 'QUERY',
'ad' => 0,
'ra' => 0,
'qr' => 0,
'arcount' => 0,
'id' => 4,
'aa' => 0,
'rd' => 1
}, 'Net::DNS::Header' )
}, 'Net::DNS::Packet' );
Using:
0.53 (broken)
0.53_01 (broken)
0.49 works
v5.8.5 built for i386-freebsd
FreeBSD 5.4 Stable