stop using IPv4-only code
#!/usr/bin/env perl
-use IO::Socket::INET;
+use IO::Socket::IP;
my $cmd = "vespa-model-inspect -t logtp -t telnet -t replicator filter:ports";
@@ -18,7 +18,7 @@ if ( $vmiout =~ m{^\s*tcp/(\S+):(\d+)\s*$/} ) {
die "FAILED finding host and port for logserver replication\n";
}
-my $net = new IO::Socket::INET(PeerAddr => "${host}:${port}",
+my $net = new IO::Socket::IP(PeerAddr => "${host}:${port}",
Proto => 'tcp',
Timeout => 10);
if (!$net) {
