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

Fix crash when loading Perl scripts on FreeBSD

Browse Source
This commit is contained in:
Sebastien Helleu 2008-11-05 12:33:50 +01:00
parent 596d60b5d9
commit bc0237cd0d
1 changed files with 6 additions and 4 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

@ -112,7 +112,7 @@ void *
weechat_perl_exec (struct t_plugin_script *script, weechat_perl_exec (struct t_plugin_script *script,
int ret_type, const char *function, char **argv) int ret_type, const char *function, char **argv)
{ {
const char *func; char *func;
unsigned int count; unsigned int count;
void *ret_value; void *ret_value;
int *ret_i, mem_err, length; int *ret_i, mem_err, length;
@ -124,11 +124,11 @@ weechat_perl_exec (struct t_plugin_script *script,
#ifdef MULTIPLICITY #ifdef MULTIPLICITY
(void) length; (void) length;
func = function; func = (char *) function;
PERL_SET_CONTEXT (script->interpreter); PERL_SET_CONTEXT (script->interpreter);
#else #else
length = strlen (script->interpreter) + strlen (function) + 3; length = strlen (script->interpreter) + strlen (function) + 3;
func = malloc (length); func = (char *) malloc (length);
if (!func) if (!func)
return NULL; return NULL;
snprintf (func, length, "%s::%s", (char *) script->interpreter, function); snprintf (func, length, "%s::%s", (char *) script->interpreter, function);
@ -628,10 +628,12 @@ weechat_plugin_init (struct t_weechat_plugin *plugin, int argc, char *argv[])
#ifdef PERL_SYS_INIT3 #ifdef PERL_SYS_INIT3
int a = perl_args_count; int a = perl_args_count;
char **perl_args_local = perl_args;
char *perl_env[] = {}; char *perl_env[] = {};
(void) a; (void) a;
(void) perl_args_local;
(void) perl_env; (void) perl_env;
PERL_SYS_INIT3 (&a, (char ***)&perl_args, (char ***)&perl_env); PERL_SYS_INIT3 (&a, (char ***)&perl_args_local, (char ***)&perl_env);
#endif #endif
weechat_perl_plugin = plugin; weechat_perl_plugin = plugin;