Module: kamailio Branch: 5.4 Commit: 5b849659b23c1fad9161d51c1e7aac5a96d8850c URL: https://github.com/kamailio/kamailio/commit/5b849659b23c1fad9161d51c1e7aac5a...
Author: rodolfojcj 458749+rodolfojcj@users.noreply.github.com Committer: Daniel-Constantin Mierla miconda@gmail.com Date: 2021-07-29T10:45:02+02:00
app_perl change to ignore "die" signals from eval blocks
(cherry picked from commit 50557b8433e137a9095b4d48df8ac9b8c3fd8807) (cherry picked from commit 7192139d77f844cd927c326ce16cadfc63378b35)
---
Modified: src/modules/app_perl/lib/perl/Kamailio.pm
---
Diff: https://github.com/kamailio/kamailio/commit/5b849659b23c1fad9161d51c1e7aac5a... Patch: https://github.com/kamailio/kamailio/commit/5b849659b23c1fad9161d51c1e7aac5a...
---
diff --git a/src/modules/app_perl/lib/perl/Kamailio.pm b/src/modules/app_perl/lib/perl/Kamailio.pm index eda5ede8b7..aa587424e1 100644 --- a/src/modules/app_perl/lib/perl/Kamailio.pm +++ b/src/modules/app_perl/lib/perl/Kamailio.pm @@ -40,6 +40,7 @@ bootstrap Kamailio;
BEGIN { $SIG{'__DIE__'} = sub { + die @_ if( $^S or not defined $^S ); Kamailio::Message::log(undef, L_ERR, "perl error: $_[0]\n"); }; $SIG{'__WARN__'} = sub {
-
Daniel-Constantin Mierla