MT#55283 fix perl warnings

Change-Id: If619b302757fc795a73466d35d904c64c0039ff5
4 months ago · 6b2550cdcd
parent df6ac133d3
commit 6b2550cdcd
1 changed files with 2 additions and 2 deletions
--- 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);
 	}