summaryrefslogtreecommitdiff
path: root/src/plugins
diff options
context:
space:
mode:
authorSebastien Helleu <flashcode@flashtux.org>2004-10-03 16:37:56 +0000
committerSebastien Helleu <flashcode@flashtux.org>2004-10-03 16:37:56 +0000
commit2a227141c42d67ec6a8bad083b2a581af03a0c6d (patch)
tree9676626bc34c0c74f622fd120f7e93bc5c7fc59d /src/plugins
parent7ef14b95b69a1adf41006939fc42fa101b309003 (diff)
downloadweechat-2a227141c42d67ec6a8bad083b2a581af03a0c6d.zip
Fixed bug in wee_perl_exec() when server == NULL
Diffstat (limited to 'src/plugins')
-rw-r--r--src/plugins/perl/wee-perl.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/plugins/perl/wee-perl.c b/src/plugins/perl/wee-perl.c
index 67e304dba..b3cb8eae3 100644
--- a/src/plugins/perl/wee-perl.c
+++ b/src/plugins/perl/wee-perl.c
@@ -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);