From b58393695692a170643c3d7c5242b46a27f4b362 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Fri, 28 Feb 2025 08:30:45 -0400
Subject: [PATCH] MT#55283 silence perl test warnings

Change-Id: Ib881bfc3311a0d1e19a2d95bca671a607b678f08
(cherry picked from commit e234e11c98e5d91a1ae204096b255c799ce2e15c)
---
 t/auto-daemon-tests-redis.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/t/auto-daemon-tests-redis.pl b/t/auto-daemon-tests-redis.pl
index 959e91fc6..44f73e83c 100755
--- a/t/auto-daemon-tests-redis.pl
+++ b/t/auto-daemon-tests-redis.pl
@@ -6,7 +6,7 @@ use NGCP::Rtpengine::Test;
 use NGCP::Rtpclient::SRTP;
 use NGCP::Rtpengine::AutoTest;
 use Test::More;
-use Test2::Tools::Compare qw(like);
+use Test2::Tools::Compare qw();
 use Socket qw(AF_INET SOCK_STREAM sockaddr_in pack_sockaddr_in inet_aton);
 use JSON;
 use Data::Dumper;
@@ -76,7 +76,7 @@ $NGCP::Rtpengine::req_cb = sub {
 	alarm(0);
 	my $json = decode_json($buf);
 	#print Dumper($json);
-	like($json, $json_exp, "JSON");
+	Test2::Tools::Compare::like($json, $json_exp, "JSON");
 	redis_io("\r\n*3\r\n\$6\r\nEXPIRE\r\n\$" . length(cid()) . "\r\n" . cid() . "\r\n\$5\r\n86400\r\n",
 		"+OK\r\n+OK\r\n",
 		"req EXPIRE");