diff -ruN libsnmp-session-perl-1.13.orig/debian/changelog libsnmp-session-perl-1.13/debian/changelog
--- libsnmp-session-perl-1.13.orig/debian/changelog	2012-04-13 11:41:15.000000000 -0700
+++ libsnmp-session-perl-1.13/debian/changelog	2012-04-13 11:48:44.242669176 -0700
@@ -1,3 +1,10 @@
+libsnmp-session-perl (1.13-1ubuntu1) precise; urgency=low
+
+  * Eliminate "Subroutine redefined" warnings by not re-importing 
+    Socket6 (LP: #946067)
+
+ -- Ryan Finnie <ryan@finnie.org>  Fri, 13 Apr 2012 11:44:22 -0700
+
 libsnmp-session-perl (1.13-1) unstable; urgency=low
 
   * New upstream release
diff -ruN libsnmp-session-perl-1.13.orig/lib/SNMP_Session.pm libsnmp-session-perl-1.13/lib/SNMP_Session.pm
--- libsnmp-session-perl-1.13.orig/lib/SNMP_Session.pm	2008-11-20 21:25:17.000000000 -0800
+++ libsnmp-session-perl-1.13/lib/SNMP_Session.pm	2012-04-13 11:46:43.026667768 -0700
@@ -146,7 +146,7 @@
 
     if (eval {local $SIG{__DIE__};require Socket6;} &&
        eval {local $SIG{__DIE__};require IO::Socket::INET6; IO::Socket::INET6->VERSION("1.26");}) {
-	import Socket6;
+	Socket6->import(qw(inet_pton getaddrinfo));
 	$ipv6_addr_len = length(pack_sockaddr_in6(161, inet_pton(AF_INET6(), "::1")));
 	$SNMP_Session::ipv6available = 1;
     }
@@ -605,7 +605,7 @@
 BEGIN {
     if($SNMP_Session::ipv6available) {
 	import IO::Socket::INET6;
-	import Socket6;
+	Socket6->import(qw(inet_pton getaddrinfo));
     }
 }