From 0421c1c5c65e2f4d281ed6f14d401f9db0d51396 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Fri, 8 Jul 2022 14:07:06 -0400
Subject: [PATCH] TT#185100 Perl syntax fixes

Change-Id: I79af80f47244a8d0bdb0280392336e1804448026
(cherry picked from commit 58b4173ed1b83365daa3c19ac7aca178a6ccd706)
---
 t/auto-daemon-tests.pl | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/t/auto-daemon-tests.pl b/t/auto-daemon-tests.pl
index 2349fc163..9f4caacec 100755
--- a/t/auto-daemon-tests.pl
+++ b/t/auto-daemon-tests.pl
@@ -295,11 +295,11 @@ $has_recv = 0;
 while ($has_recv != 3) {
 	# receive STUN packet, either triggered check or success
 	@ret2 = rcv($sock_c, $port_a, qr/^\x01(\x01)\x00.\x21\x12\xa4\x42\Q$tid\E|^\x00\x01\x00.\x21\x12\xa4\x42(............)\x80\x22\x00.rtpengine/s);
-	if (@ret2[0]) {
+	if ($ret2[0]) {
 		# STUN success
 		$has_recv |= 1;
 	}
-	elsif (@ret2[1]) {
+	elsif ($ret2[1]) {
 		# triggered check
 		@ret1 = @ret2;
 		$has_recv |= 2;
@@ -315,10 +315,10 @@ snd($sock_d, $port_ax, $packet);
 $has_recv = 0;
 while ($has_recv != 3) {
 	@ret2 = rcv($sock_d, $port_ax, qr/^\x01(\x01)\x00.\x21\x12\xa4\x42\Q$tid\E|^\x00\x01\x00.\x21\x12\xa4\x42(............)\x80\x22\x00.rtpengine/s);
-	if (@ret2[0]) {
+	if ($ret2[0]) {
 		$has_recv |= 1;
 	}
-	elsif (@ret2[1]) {
+	elsif ($ret2[1]) {
 		@ret1 = @ret2;
 		$has_recv |= 2;
 	}
@@ -392,7 +392,7 @@ rcv($sock_a, -1, qr/^\x00\x01\x00.\x21\x12\xa4\x42/s);
 rcv($sock_b, -1, qr/^\x00\x01\x00.\x21\x12\xa4\x42/s);
 
 # send our own STUN checks from different port, resulting in learned prflx candidates
-my ($packet, $tid) = stun_req(0, 65527, 1, 'q27e93', $ufrag_a, $ufrag_b);
+($packet, $tid) = stun_req(0, 65527, 1, 'q27e93', $ufrag_a, $ufrag_b);
 snd($sock_c, $port_a, $packet);
 
 $has_recv = 0;
@@ -400,11 +400,11 @@ $has_recv = 0;
 while ($has_recv != 3) {
 	# receive STUN packet, either triggered check or success
 	@ret2 = rcv($sock_c, $port_a, qr/^\x01(\x01)\x00.\x21\x12\xa4\x42\Q$tid\E|^\x00\x01\x00.\x21\x12\xa4\x42(............)\x80\x22\x00.rtpengine/s);
-	if (@ret2[0]) {
+	if ($ret2[0]) {
 		# STUN success
 		$has_recv |= 1;
 	}
-	elsif (@ret2[1]) {
+	elsif ($ret2[1]) {
 		# triggered check
 		@ret1 = @ret2;
 		$has_recv |= 2;
@@ -420,10 +420,10 @@ snd($sock_d, $port_ax, $packet);
 $has_recv = 0;
 while ($has_recv != 3) {
 	@ret2 = rcv($sock_d, $port_ax, qr/^\x01(\x01)\x00.\x21\x12\xa4\x42\Q$tid\E|^\x00\x01\x00.\x21\x12\xa4\x42(............)\x80\x22\x00.rtpengine/s);
-	if (@ret2[0]) {
+	if ($ret2[0]) {
 		$has_recv |= 1;
 	}
-	elsif (@ret2[1]) {
+	elsif ($ret2[1]) {
 		@ret1 = @ret2;
 		$has_recv |= 2;
 	}