MT#55283 use perl ::IP module

Allows connecting to IPv6 addresses

Closes #1915

Change-Id: I6efe5bc5afd537507d1e88445cc9690b6abf1894
(cherry picked from commit 98d32cd170)
(cherry picked from commit 60d8bb202b)
mr13.1.1
Richard Fuchs 9 months ago
parent 93acf02514
commit 2939854b66

@ -3,7 +3,7 @@
use strict;
use warnings;
use IO::Socket::INET;
use IO::Socket::IP;
use Getopt::Long;
use Config::Tiny;
@ -51,7 +51,7 @@ if (!$argumentstring || !$optret || $port <= 0 || $port > 65535) {
}
# create a connecting socket
my $socket = IO::Socket::INET->new(
my $socket = IO::Socket::IP->new(
PeerHost => $ip,
PeerPort => $port,
Proto => 'tcp',

Loading…
Cancel
Save