From 7bb815a540e6c9a2e8c7be788d853771d7c7af45 Mon Sep 17 00:00:00 2001 From: Sebastien Helleu Date: Sun, 16 Oct 2005 15:39:20 +0000 Subject: Fixed but when no parameter given for /perl and /python options --- src/plugins/scripts/perl/weechat-perl.c | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'src/plugins/scripts/perl') 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; } -- cgit v1.2.3