diff options
| author | Sebastien Helleu <flashcode@flashtux.org> | 2004-10-03 16:37:56 +0000 |
|---|---|---|
| committer | Sebastien Helleu <flashcode@flashtux.org> | 2004-10-03 16:37:56 +0000 |
| commit | 2a227141c42d67ec6a8bad083b2a581af03a0c6d (patch) | |
| tree | 9676626bc34c0c74f622fd120f7e93bc5c7fc59d /src/plugins | |
| parent | 7ef14b95b69a1adf41006939fc42fa101b309003 (diff) | |
| download | weechat-2a227141c42d67ec6a8bad083b2a581af03a0c6d.zip | |
Fixed bug in wee_perl_exec() when server == NULL
Diffstat (limited to 'src/plugins')
| -rw-r--r-- | src/plugins/perl/wee-perl.c | 5 |
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); |