MT#62763 perl: Do not mix low and high boolean operators

Warned-by: perlcritic Fixes: ValuesAndExpressions::ProhibitMixedBooleanOperators Change-Id: Ie6611790edffb69b92c1ea8170752b5fdb76665a
3 months ago · 59b859a9cc
parent eef9cc7cf4
commit 59b859a9cc
1 changed files with 1 additions and 1 deletions
--- a/perl/NGCP/Rtpengine/AutoTest.pm
+++ b/perl/NGCP/Rtpengine/AutoTest.pm
@ -224,7 +224,7 @@ sub srtp_snd {
 }
 sub exts {
 	my ($exts) = @_;
-	$exts && @$exts or return '';
+	return '' unless $exts && @$exts;
 	my $e = '';
 	my $h;
 	# long format needed if IDs 16+ are used, or if the length is more than 16, or if