From 6b2550cdcd4dde3f0ed764d8311a1852f87ab2c5 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Tue, 16 Sep 2025 14:52:00 -0400
Subject: [PATCH] MT#55283 fix perl warnings

Change-Id: If619b302757fc795a73466d35d904c64c0039ff5
---
 perl/NGCP/Rtpclient/SRTP.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl/NGCP/Rtpclient/SRTP.pm b/perl/NGCP/Rtpclient/SRTP.pm
index 9d245ab0e..d186011e0 100644
--- a/perl/NGCP/Rtpclient/SRTP.pm
+++ b/perl/NGCP/Rtpclient/SRTP.pm
@@ -280,7 +280,7 @@ sub encrypt_rtp {
 		my $rest;
 		($exttype, $extlen, $rest) = unpack('a2a2a*', $to_enc);
 		my ($len) = unpack('n', $extlen);
-		my $len = $len * 4;
+		$len = $len * 4;
 		$ext = substr($rest, 0, $len);
 		$to_enc = substr($rest, $len);
 	}
@@ -320,7 +320,7 @@ sub decrypt_rtp {
 		my $rest;
 		($exttype, $extlen, $rest) = unpack('a2a2a*', $to_enc);
 		my ($len) = unpack('n', $extlen);
-		my $len = $len * 4;
+		$len = $len * 4;
 		$ext = substr($rest, 0, $len);
 		$to_enc = substr($rest, $len);
 	}