--- munin-update.org	Fri Apr 20 15:53:00 2007
+++ munin-update	Tue May  1 09:13:36 2007
@@ -164,7 +164,10 @@
 $|=1;
 
 use strict;
+use Socket;
+use Socket6;
 use IO::Socket;
+use IO::Socket::INET6;
 use Munin;
 use Time::HiRes;
 use RRDs;
@@ -664,18 +667,20 @@
   
   if (&munin_get ($config, "local_address", undef, $domain, $node))
   {
-      $socket = new IO::Socket::INET ('PeerAddr' => "$node->{address}:".
+      $socket = new IO::Socket::INET6 ('PeerAddr' => "$node->{address}",
+		   'PeerPort' =>
 		  ($node->{port} || $config->{domain}->{$domain}->{port} || 
 		   $config->{port} || "4949"), 
 		   'LocalAddr' => &munin_get ($config, "local_address", undef, $domain, $node),
-		  'Proto'    => "tcp", "Timeout" => $timeout);
+		  'Proto'    => "tcp", "Timeout" => $timeout, 'MultiHomed' => "1");
   }
   else
   {
-      $socket = new IO::Socket::INET ('PeerAddr' => "$node->{address}:".
+      $socket = new IO::Socket::INET6 ('PeerAddr' => "$node->{address}",
+		   'PeerPort' =>
 		  ($node->{port} || $config->{domain}->{$domain}->{port} || 
 		   $config->{port} || "4949"), 
-		  'Proto'    => "tcp", "Timeout" => $timeout);
+		  'Proto'    => "tcp", "Timeout" => $timeout, 'MultiHomed' => "1");
   }
   my $err = ($socket ? "" : $!);