TT#101653 kill auto-test daemon in case of timeout

Change-Id: I2491088867e38802f5fbbb1bcc8eb7b5fb64568c
4 years ago · fa8a1dbbd9
parent 7c3d2e016a
commit fa8a1dbbd9
1 changed files with 1 additions and 0 deletions
--- 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);