GitList
Browse code

app_perl change to ignore "die" signals from eval blocks

(cherry picked from commit 50557b8433e137a9095b4d48df8ac9b8c3fd8807)
(cherry picked from commit 7192139d77f844cd927c326ce16cadfc63378b35)
(cherry picked from commit 5b849659b23c1fad9161d51c1e7aac5a96d8850c)

rodolfojcj authored on 01/06/2021 12:06:32 • Henning Westerholt committed on 22/10/2021 11:57:06
Showing 1 changed files
src/modules/app_perl/lib/perl/Kamailio.pm
History View file @ 783b75d167
... ... 
@@ -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 {