From b000e35bf9652aa03a3963d3d318263925ef3996 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Wed, 28 Jun 2006 23:27:40 +0000
Subject: [PATCH] More fields work

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@649 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Danga/DNS/Resolver.pm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lib/Danga/DNS/Resolver.pm b/lib/Danga/DNS/Resolver.pm
index 47a9062..950682e 100644
--- a/lib/Danga/DNS/Resolver.pm
+++ b/lib/Danga/DNS/Resolver.pm
@@ -303,7 +303,7 @@ sub new {
 #}
 
 sub timeout {
-    my $self = shift;
+    my Danga::DNS::Resolver::Query $self = shift;
     
     trace(2, "NS Query timeout. Trying next host\n");
     if ($self->send_query) {
@@ -329,7 +329,8 @@ sub timeout {
 }
 
 sub error {
-    my ($self, $error) = @_;
+    my Danga::DNS::Resolver::Query $self = shift;
+    my ($error) = @_;
     
     trace(2, "NS Query error. Trying next host\n");
     if ($self->send_query) {
@@ -355,13 +356,13 @@ sub error {
 }
 
 sub run_callback {
-    my ($self, $response) = @_;
-    trace(2, "NS Query callback($self->{host} = $response\n");
-    $self->{asker}->run_callback($response, $self->{host});
+    my Danga::DNS::Resolver::Query $self = shift;
+    trace(2, "NS Query callback($self->{host} = $_[0]\n");
+    $self->{asker}->run_callback($_[0], $self->{host});
 }
 
 sub send_query {
-    my ($self) = @_;
+    my Danga::DNS::Resolver::Query $self = shift;
     
     my $dst = $self->{resolver}->ns($self->{ns}++);
     return unless defined $dst;