From 850af8a80348cb5f1f83c8d06d8e8933f0a63f00 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Thu, 13 Mar 2025 14:27:40 -0400
Subject: [PATCH] MT#55283 use perl ::IP module

Allows connecting to IPv6 addresses

Closes #1915

Change-Id: I6efe5bc5afd537507d1e88445cc9690b6abf1894
(cherry picked from commit 98d32cd170fb018c2cf32c381804754678543bd0)
---
 utils/rtpengine-ctl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/utils/rtpengine-ctl b/utils/rtpengine-ctl
index 1e98a24cf..2def57155 100755
--- a/utils/rtpengine-ctl
+++ b/utils/rtpengine-ctl
@@ -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 = new IO::Socket::INET (
+my $socket = IO::Socket::IP->new(
     PeerHost => $ip,
     PeerPort => $port,
     Proto => 'tcp',