Fixed but when no parameter given for /perl and /python options

1 files changed, 11 insertions, 2 deletions

diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c
index 504a0a596..543c39ba5 100644
--- a/src/plugins/scripts/perl/weechat-perl.c
+++ b/src/plugins/scripts/perl/weechat-perl.c
@@ -531,7 +531,13 @@ weechat_perl_cmd (t_weechat_plugin *plugin,
     (void) handler_args;
     (void) handler_pointer;
     
-    argv = plugin->explode_string (plugin, arguments, " ", 0, &argc);
+    if (arguments)
+        argv = plugin->explode_string (plugin, arguments, " ", 0, &argc);
+    else
+    {
+        argv = NULL;
+        argc = 0;
+    }
     
     switch (argc)
     {
@@ -639,7 +645,10 @@ weechat_perl_cmd (t_weechat_plugin *plugin,
             plugin->printf_server (plugin,
                                    "Perl error: wrong argument count for \"perl\" command");
     }
-    plugin->free_exploded_string (plugin, argv);
+    
+    if (argv)
+        plugin->free_exploded_string (plugin, argv);
+    
     return 1;
 }