| Subject: | Still more bugs |
Two more bugs:
Line 746 still needs a context argument:
my $response = $self->{resolver}->resolve( event => "got_dns_response", host => $self->{'server'}, context => [ ] );
Line 788 handles $_[ARG1] incorrectly:
my ($net_dns_packet, $net_dns_errorstring) = @{$_[ARG0]}{'response', 'error'};