From 6599c523527c4679148acf62635f9846e133a898 Mon Sep 17 00:00:00 2001 From: Sebastien Helleu Date: Mon, 29 May 2006 22:42:07 +0000 Subject: Fixed /perl command output when no keyboard handler is defined --- src/plugins/scripts/perl/weechat-perl.c | 2 ++ weechat/src/plugins/scripts/perl/weechat-perl.c | 2 ++ 2 files changed, 4 insertions(+) diff --git a/src/plugins/scripts/perl/weechat-perl.c b/src/plugins/scripts/perl/weechat-perl.c index d8cb85e14..0b717b9ec 100644 --- a/src/plugins/scripts/perl/weechat-perl.c +++ b/src/plugins/scripts/perl/weechat-perl.c @@ -1679,6 +1679,8 @@ weechat_perl_cmd (t_weechat_plugin *plugin, ptr_handler->handler_args); } } + if (!handler_found) + plugin->print_server (plugin, " (none)"); break; case 1: if (plugin->ascii_strcasecmp (plugin, argv[0], "autoload") == 0) diff --git a/weechat/src/plugins/scripts/perl/weechat-perl.c b/weechat/src/plugins/scripts/perl/weechat-perl.c index d8cb85e14..0b717b9ec 100644 --- a/weechat/src/plugins/scripts/perl/weechat-perl.c +++ b/weechat/src/plugins/scripts/perl/weechat-perl.c @@ -1679,6 +1679,8 @@ weechat_perl_cmd (t_weechat_plugin *plugin, ptr_handler->handler_args); } } + if (!handler_found) + plugin->print_server (plugin, " (none)"); break; case 1: if (plugin->ascii_strcasecmp (plugin, argv[0], "autoload") == 0) -- cgit v1.2.3