diff --git a/lib/IO/Lambda/DNS.pm b/lib/IO/Lambda/DNS.pm index b1be635..f2df736 100644 --- a/lib/IO/Lambda/DNS.pm +++ b/lib/IO/Lambda/DNS.pm @@ -51,19 +51,7 @@ lambda { my $bg_obj = $obj-> bgsend( @ctx); return "send error: " . $obj-> errorstring unless $bg_obj; - my $sock; - if ( $Net::DNS::VERSION == 1.03 ) { - # this is a IO::Select object - my @handles = $bg_obj->handles; - if ( 1 != @handles ) { - warn "There's something wrong with Net::DNS version $Net::DNS::VERSION, please notify the author\n"; - return "panic: Net::DNS returned not 1 socket\n"; - } - $sock = $handles[0]->[0]; - } else { - $sock = $bg_obj; - } - + my $sock = $bg_obj; context $sock, $timeout; readable { unless ( shift) {