pegasus/weechat
1
0
Fork 0
mirror of https://github.com/weechat/weechat.git synced 2026-06-27 13:26:38 +02:00
Code Activity

perl: return WEECHAT_RC_ERROR in command /perl if arguments are wrong/missing

Browse Source
This commit is contained in:
Sebastien Helleu
2014-02-21 13:37:31 +01:00
parent 18fd85de7d
commit d86d6013ef
1 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/plugins/perl/weechat-perl.c
+3 -6
View File
@@ -673,6 +673,8 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
{
weechat_perl_unload_all ();
}
else
return WEECHAT_RC_ERROR;
}
else
{
@@ -722,12 +724,7 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
perl_quiet = 0;
}
else
{
weechat_printf (NULL,
weechat_gettext ("%s%s: unknown option for "
"command \"%s\""),
weechat_prefix ("error"), PERL_PLUGIN_NAME, "perl");
}
return WEECHAT_RC_ERROR;
}
return WEECHAT_RC_OK;