diff -ruN Net-DNS-0.53/lib/Net/DNS/Resolver/Base.pm Net-DNS-0.53KAM/lib/Net/DNS/Resolver/Base.pm
--- Net-DNS-0.53/lib/Net/DNS/Resolver/Base.pm	Fri Jul 22 08:13:50 2005
+++ Net-DNS-0.53KAM/lib/Net/DNS/Resolver/Base.pm	Tue Nov  1 11:36:30 2005
@@ -1072,15 +1072,16 @@
 							 Proto => 'udp',
 							 Type => SOCK_DGRAM,
 							 LocalAddr => $srcaddr,
-							 LocalPort => $srcport,
+							 LocalPort => ($srcport || undef),
 					    );
 	} elsif ($has_inet6 && $sockfamily == AF_INET6() ) {
 	    $srcaddr="0" if $srcaddr eq "0.0.0.0";  # Otherwise the INET6 socket will just fail
+            my $srcaddr6 = $srcaddr eq "0.0.0.0" ? '::' : $srcaddr;
 	    $socket[$sockfamily] = IO::Socket::INET6->new(
 							  Proto => 'udp',
 							  Type => SOCK_DGRAM,
-							  LocalAddr => $srcaddr,
-							  LocalPort => $srcport,
+							  LocalAddr => $srcaddr6,
+							  LocalPort => ($srcport || undef),
 					     );
 	} else {
 	    die ref($self)." bgsend:Unsoported Socket Family: $sockfamily";