ports/165707: ports/dns/rbllookup-ng use accessor method for Net::DNS::Question

[Henk van Oers]

>Number:         165707
>Category:       ports
>Synopsis:       ports/dns/rbllookup-ng use accessor method for Net::DNS::Question
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Mon Mar 05 11:00:21 UTC 2012
>Closed-Date:
>Last-Modified:
>Originator:     Henk van Oers
>Release:        FreeBSD {7|8}
>Organization:
>Environment:
FreeBSD bep.signature.nl 7.4-STABLE FreeBSD 7.4-STABLE #2: Sun Jan  8 17:22:05 CET 2012     root at bep.signature.nl:/usr/obj/usr/src/sys/BEP  i386
>Description:
The fieldname qname in a p5-Net-DNS-0.68 Net::DNS::Question object is changed.
Please use the accessor method ->qname

>How-To-Repeat:
rbllookup <ip-nr>
>Fix:
--- rbllookup.org       2012-03-05 11:43:38.000000000 +0100
+++ rbllookup   2012-03-05 11:45:09.000000000 +0100
@@ -165,7 +165,7 @@
            foreach my $sock (@ready) {
                $sel->remove($sock);
                my $qa=$res->bgread($sock);
-               my $qname=$qa->{question}->[0]->{qname};
+               my $qname=$qa->{question}->[0]->qname;
                my @w=split(/\./,$qname);
                shift(@w);shift(@w);shift(@w);shift(@w);
 

>Release-Note:
>Audit-Trail:
>Unformatted: