[sr-dev] git:5.5:7192139d: app_perl change to ignore "die" signals from eval blocks
Daniel-Constantin Mierla
miconda at gmail.com
Thu Jun 10 12:30:35 CEST 2021
Module: kamailio
Branch: 5.5
Commit: 7192139d77f844cd927c326ce16cadfc63378b35
URL: https://github.com/kamailio/kamailio/commit/7192139d77f844cd927c326ce16cadfc63378b35
Author: rodolfojcj <458749+rodolfojcj at users.noreply.github.com>
Committer: Daniel-Constantin Mierla <miconda at gmail.com>
Date: 2021-06-10T12:28:17+02:00
app_perl change to ignore "die" signals from eval blocks
(cherry picked from commit 50557b8433e137a9095b4d48df8ac9b8c3fd8807)
---
Modified: src/modules/app_perl/lib/perl/Kamailio.pm
---
Diff: https://github.com/kamailio/kamailio/commit/7192139d77f844cd927c326ce16cadfc63378b35.diff
Patch: https://github.com/kamailio/kamailio/commit/7192139d77f844cd927c326ce16cadfc63378b35.patch
---
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 {
More information about the sr-dev
mailing list