diff options
Diffstat (limited to 'src/plugins/scripts/perl/weechat-perl.c')
| -rw-r--r-- | src/plugins/scripts/perl/weechat-perl.c | 13 |
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; } |