Fixed /perl command output when no keyboard handler is defined

2026-07-03 16:23:14 +02:00 · 2006-05-29 22:42:07 +00:00
parent fe90f3d4e4
commit 6599c52352
2 changed files with 4 additions and 0 deletions
@@ -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)