zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-22 10:02:22 +02:00
Code Issues Projects Releases Packages Wiki Activity

Fix segfault when 'script error' handlers fail

Browse source 
Add logic to detect errors in 'script error' handlers, and prevent
them from causing infinite recursion that crashes the entire program.
This commit is contained in:
Stephen Oberholtzer 2017-03-01 21:07:14 -05:00
commit bfa217b283
4 changed files with 72 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/perl/perl-signals.c
View file

@ -304,7 +304,7 @@ static void perl_call_signal(PERL_SCRIPT_REC *script, SV *func,
if (SvTRUE(ERRSV)) {
char *error = g_strdup(SvPV_nolen(ERRSV));
signal_emit("script error", 2, script, error);
perl_report_script_error(script, error);
g_free(error);
rec = NULL;
}
@ -360,6 +360,8 @@ static void sig_func(const void *p1, const void *p2,
args[3] = p4; args[4] = p5; args[5] = p6;
rec = signal_get_user_data();
if (rec->script->disable_signals)
return;
perl_call_signal(rec->script, rec->func, signal_get_emitted_id(), args);
}