--- a/policyd-weight	2015-02-05 10:10:39.312526469 +0100
+++ b/policyd-weight	2015-02-05 10:12:23.204615897 +0100
@@ -69,7 +69,7 @@
 use Sys::Syslog qw(:DEFAULT setlogsock);
 use Net::DNS;
 use Net::IP;
-use Net::DNS::Packet qw(dn_expand);
+use Net::DNS::Packet;
 use IO::Socket::INET;
 use IO::Socket::UNIX;
 use IO::Select;
@@ -3588,7 +3588,7 @@
             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 ($dn, $offset) = Net::DNS::Packet::dn_expand_PP(\$qb, 0);
 
             if(($id && $anc) && ($id == $oid) && ($query eq $dn))
             {