blackbeard420/weechat
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix crash when a perl callback is called in "register" of another perl script

Browse Source
This commit is contained in:
Sebastien Helleu 2008-11-16 19:25:24 +01:00
parent 4174ac5665
commit 7c52a36e23
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/plugins/scripts/perl/weechat-perl.c
View File

@ -118,6 +118,7 @@ weechat_perl_exec (struct t_plugin_script *script,
int *ret_i, mem_err, length;
SV *ret_s;
struct t_plugin_script *old_perl_current_script;
void *old_context;
/* this code is placed here to conform ISO C90 */
dSP;
@ -128,6 +129,7 @@ weechat_perl_exec (struct t_plugin_script *script,
#ifdef MULTIPLICITY
(void) length;
func = (char *) function;
old_context = PERL_GET_CONTEXT;
PERL_SET_CONTEXT (script->interpreter);
#else
length = strlen (script->interpreter) + strlen (function) + 3;
@ -199,14 +201,10 @@ weechat_perl_exec (struct t_plugin_script *script,
LEAVE;
if (old_perl_current_script)
{
perl_current_script = old_perl_current_script;
#ifdef MULTIPLICITY
PERL_SET_CONTEXT (perl_current_script->interpreter);
#endif
}
#ifndef MULTIPLICITY
PERL_SET_CONTEXT (old_context);
#else
free (func);
#endif