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);