SoniEx2
/
c.sexchat
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Perl: fixed crash when a script exits abnormally

This commit is contained in:
Farow 2013-10-09 11:33:10 +03:00 committed by TingPing
parent 1b07c0f54b
commit fd13e4046f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
plugins/perl/perl.c
View File

@ -408,7 +408,7 @@ timer_cb (void *userdata)
} }
set_current_package (data->package); set_current_package (data->package);
count = call_sv (data->callback, G_EVAL); count = call_sv (data->callback, G_EVAL | G_KEEPERR);
set_current_package (&PL_sv_undef); set_current_package (&PL_sv_undef);
SPAGAIN; SPAGAIN;
@ -467,7 +467,7 @@ server_cb (char *word[], char *word_eol[], void *userdata)
data->depth++; data->depth++;
set_current_package (data->package); set_current_package (data->package);
count = call_sv (data->callback, G_EVAL); count = call_sv (data->callback, G_EVAL | G_KEEPERR);
set_current_package (&PL_sv_undef); set_current_package (&PL_sv_undef);
data->depth--; data->depth--;
SPAGAIN; SPAGAIN;
@ -516,7 +516,7 @@ command_cb (char *word[], char *word_eol[], void *userdata)
data->depth++; data->depth++;
set_current_package (data->package); set_current_package (data->package);
count = call_sv (data->callback, G_EVAL); count = call_sv (data->callback, G_EVAL | G_KEEPERR);
set_current_package (&PL_sv_undef); set_current_package (&PL_sv_undef);
data->depth--; data->depth--;
SPAGAIN; SPAGAIN;
@ -592,7 +592,7 @@ print_cb (char *word[], void *userdata)
data->depth++; data->depth++;
set_current_package (data->package); set_current_package (data->package);
count = call_sv (data->callback, G_EVAL); count = call_sv (data->callback, G_EVAL | G_KEEPERR);
set_current_package (&PL_sv_undef); set_current_package (&PL_sv_undef);
data->depth--; data->depth--;
SPAGAIN; SPAGAIN;