From fa8a1dbbd97369772ffd9f2f572e34048a89dfa8 Mon Sep 17 00:00:00 2001
From: Richard Fuchs <rfuchs@sipwise.com>
Date: Wed, 16 Dec 2020 13:45:14 -0500
Subject: [PATCH] TT#101653 kill auto-test daemon in case of timeout

Change-Id: I2491088867e38802f5fbbb1bcc8eb7b5fb64568c
---
 perl/NGCP/Rtpengine/AutoTest.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/NGCP/Rtpengine/AutoTest.pm b/perl/NGCP/Rtpengine/AutoTest.pm
index 2ac60c90d..770ad42ba 100644
--- a/perl/NGCP/Rtpengine/AutoTest.pm
+++ b/perl/NGCP/Rtpengine/AutoTest.pm
@@ -164,6 +164,7 @@ sub rtp {
 sub rcv {
 	my ($sock, $port, $match, $cb, $cb_arg) = @_;
 	my $p = '';
+	local $SIG{ALRM} = sub { exit(-10) };
 	alarm(1);
 	my $addr = $sock->recv($p, 65535, 0) or die;
 	alarm(0);