pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-06-30 06:46:38 +02:00
Code Activity

Fixed bug in wee_perl_exec() when server == NULL

Browse Source
This commit is contained in:
Sebastien Helleu
2004-10-03 16:37:56 +00:00
parent 7ef14b95b6
commit 2a227141c4
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/perl/wee-perl.c
+4 -1
View File
@@ -507,7 +507,10 @@ wee_perl_exec (char *function, char *server, char *arguments)
ENTER;
SAVETMPS;
PUSHMARK(sp);
argv[0] = server;
if (!server)
argv[0] = strdup ("");
else
argv[0] = server;
argv[1] = arguments;
argv[2] = NULL;
count = perl_call_argv (function, G_EVAL | G_SCALAR, argv);
weechat/src/plugins/perl/wee-perl.c
+4 -1
View File
@@ -507,7 +507,10 @@ wee_perl_exec (char *function, char *server, char *arguments)
ENTER;
SAVETMPS;
PUSHMARK(sp);
argv[0] = server;
if (!server)
argv[0] = strdup ("");
else
argv[0] = server;
argv[1] = arguments;
argv[2] = NULL;
count = perl_call_argv (function, G_EVAL | G_SCALAR, argv);