Browse code

app_perl change to ignore "die" signals from eval blocks

rodolfojcj authored on 01/06/2021 12:06:32 • GitHub committed on 01/06/2021 12:06:32
Showing 1 changed files
... ...
@@ -40,6 +40,7 @@ bootstrap Kamailio;
40 40
 
41 41
 BEGIN {
42 42
 	$SIG{'__DIE__'} = sub {
43
+		die @_ if( $^S or not defined $^S );
43 44
 		Kamailio::Message::log(undef, L_ERR, "perl error: $_[0]\n");
44 45
         };
45 46
 	$SIG{'__WARN__'} = sub {