--- site_perl/5.8.9/Net_SNMP_util.pm.org	2008-05-16 23:45:41.000000000 +0900
+++ site_perl/5.8.9/Net_SNMP_util.pm	2009-04-24 14:57:49.000000000 +0900
@@ -1528,7 +1528,11 @@
     $args{'-localaddr'} = $lhost if (defined($lhost));
     $args{'-localport'} = $lport if (defined($lport));
     $args{'-version'} = $version;
-    $args{'-domain'} = "udp/ipv4" if (length($v4onlystr) > 0);
+    if (length($v4onlystr) > 0) {
+	$args{'-domain'} = "udp/ipv4";
+    } else {
+	$args{'-domain'} = "udp/ipv6";
+    }
     $args{'-timeout'} = $timeout if (defined($timeout));
     $args{'-retries'} = $retries if (defined($retries));
     $args{'-maxmsgsize'} = $maxmsgsize if (defined($maxmsgsize));