[sr-dev] git:master:50557b84: app_perl change to ignore "die" signals from eval blocks

[Daniel-Constantin Mierla]

Content preview: Module: kamailio Branch: master Commit: 50557b8433e137a9095b4d48df8ac9b8c3fd8807
URL: https://github.com/kamailio/kamailio/commit/50557b8433e137a9095b4d48df8ac9b8c3fd8807
Author: rodolfojcj <458749+***@users.noreply.github.com> Committer:
Daniel-Constantin Mierla <***@gmail.com> Date: 2021-06-07T15:11:27+02:00


Content analysis details: (-2.4 points, 5.5 required)

pts rule name description
---- ---------------------- --------------------------------------------------
-1.0 ALL_TRUSTED Passed through trusted hosts only via SMTP
-1.9 BAYES_00 BODY: Bayes spam probability is 0 to 1%
[score: 0.0000]
0.0 DKIM_ADSP_CUSTOM_MED No valid author signature, adsp_override is
CUSTOM_MED
0.0 FREEMAIL_FROM Sender email is commonly abused enduser mail
provider (miconda[at]gmail.com)
1.0 FORGED_GMAIL_RCVD 'From' gmail.com does not match 'Received'
headers
0.2 HEADER_FROM_DIFFERENT_DOMAINS From and EnvelopeFrom 2nd level
mail domains are different
0.2 FREEMAIL_FORGED_FROMDOMAIN 2nd level domains in From and
EnvelopeFrom freemail headers are
different
-1.0 MAILING_LIST_MULTI Multiple indicators imply a widely-seen list
manager

Module: kamailio
Branch: master
Commit: 50557b8433e137a9095b4d48df8ac9b8c3fd8807
URL: https://github.com/kamailio/kamailio/commit/50557b8433e137a9095b4d48df8ac9b8c3fd8807

Author: rodolfojcj <458749+***@users.noreply.github.com>
Committer: Daniel-Constantin Mierla <***@gmail.com>
Date: 2021-06-07T15:11:27+02:00

app_perl change to ignore "die" signals from eval blocks

---

Modified: src/modules/app_perl/lib/perl/Kamailio.pm

---

Diff: https://github.com/kamailio/kamailio/commit/50557b8433e137a9095b4d48df8ac9b8c3fd8807.diff
Patch: https://github.com/kamailio/kamailio/commit/50557b8433e137a9095b4d48df8ac9b8c3fd8807.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 {