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);
diff --git a/weechat/src/plugins/perl/wee-perl.c b/weechat/src/plugins/perl/wee-perl.c
index 67e304dba..b3cb8eae3 100644
--- a/weechat/src/plugins/perl/wee-perl.c
+++ b/weechat/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);