mirror of
https://github.com/irssi/irssi.git
synced 2024-09-01 04:14:16 -04:00
fix recursive crash in Perl scripts
This commit is contained in:
parent
425178e793
commit
ed23d89a5a
@ -419,6 +419,7 @@ static void perl_call_signal(PERL_SCRIPT_REC *script, SV *func,
|
|||||||
|
|
||||||
if (SvTRUE(ERRSV)) {
|
if (SvTRUE(ERRSV)) {
|
||||||
char *error = g_strdup(SvPV_nolen(ERRSV));
|
char *error = g_strdup(SvPV_nolen(ERRSV));
|
||||||
|
perl_signal_remove_script(script);
|
||||||
signal_emit("script error", 2, script, error);
|
signal_emit("script error", 2, script, error);
|
||||||
g_free(error);
|
g_free(error);
|
||||||
rec = NULL;
|
rec = NULL;
|
||||||
|
@ -83,6 +83,7 @@ static int perl_source_event(PERL_SOURCE_REC *rec)
|
|||||||
|
|
||||||
if (SvTRUE(ERRSV)) {
|
if (SvTRUE(ERRSV)) {
|
||||||
char *error = g_strdup(SvPV_nolen(ERRSV));
|
char *error = g_strdup(SvPV_nolen(ERRSV));
|
||||||
|
perl_source_remove_script(rec->script);
|
||||||
signal_emit("script error", 2, rec->script, error);
|
signal_emit("script error", 2, rec->script, error);
|
||||||
g_free(error);
|
g_free(error);
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user