This seems to fix it:
--- /opt/local/lib/perl5/site_perl/5.8.8/darwin-2level/Net/DNS/Nameserver.pm~ 2008-
12-30 09:26:47.000000000 -0800
+++ /opt/local/lib/perl5/site_perl/5.8.8/darwin-2level/Net/DNS/Nameserver.pm 2009-
02-13 15:08:20.000000000 -0800
@@ -221,7 +221,7 @@
$reply->header->aa(1) if $headermask->{'aa'};
$reply->header->ra(1) if $headermask->{'ra'};
$reply->header->ad(1) if $headermask->{'ad'};
- if (defined $Net::DNS::opcodesbyname{$headermask->{'opcode'}}){
+ if ($headermask->{'opcode'} && defined $Net::DNS::opcodesbyname{$headermask-
Show quoted text>{'opcode'}}){
$reply->header->opcode( $headermask->{'opcode'} );
}
}
I'm not sure though if it's really a bug in my application -- if so Net::DNS should give a
better error message. :-)
