diff options
Diffstat (limited to 'src')
| -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); |