From 2a227141c42d67ec6a8bad083b2a581af03a0c6d Mon Sep 17 00:00:00 2001
From: Sebastien Helleu <flashcode@flashtux.org>
Date: Sun, 3 Oct 2004 16:37:56 +0000
Subject: Fixed bug in wee_perl_exec() when server == NULL

---
 src/plugins/perl/wee-perl.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/plugins')

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);
-- 
cgit v1.2.3