File policyd-weight-replace_net_dns_dn_expand.patch of Package policyd-weight

Description: replace Net::DNS::Packet::dn_expand with Net::DNS::DomainName::decode
Origin: James Cloos <cloos@jhcloos.com> 
Author: Werner Detter <werner@aloah-from-hell.de>
DEP: 3
Bug-Debian: http://bugs.debian.org/752845


Index: policyd-weight-0.1.15dev3/usr/sbin/policyd-weight
===================================================================
--- policyd-weight-0.1.15dev3.orig/usr/sbin/policyd-weight
+++ policyd-weight-0.1.15dev3/usr/sbin/policyd-weight
@@ -69,7 +69,6 @@ use File::Spec;
 use Sys::Syslog qw(:DEFAULT setlogsock);
 use Net::DNS;
 use Net::IP;
-use Net::DNS::Packet qw(dn_expand);
 use IO::Socket::INET;
 use IO::Socket::UNIX;
 use IO::Select;
@@ -3576,7 +3575,8 @@ sub rbl_lookup
             my    ($id, $bf, $qc, $anc, $nsc, $arc, $qb) = 
             unpack('n   n    n    n     n     n     a*', $buf);
 
-            my ($dn, $offset) = dn_expand(\$qb, 0);
+            my ($decoded, $offset) = decode Net::DNS::DomainName(\$qb);
+            my $dn = $decoded->name;
 
             if(($id && $anc) && ($id == $oid) && ($query eq $dn))
             {