core: reformat comments for functions

2 files changed, 36 insertions, 906 deletions

diff --git a/src/plugins/perl/weechat-perl-api.c b/src/plugins/perl/weechat-perl-api.c
index d182bbb04..6cb56d87d 100644
--- a/src/plugins/perl/weechat-perl-api.c
+++ b/src/plugins/perl/weechat-perl-api.c
@@ -98,7 +98,7 @@ extern void boot_DynaLoader (pTHX_ CV* cv);
 
 
 /*
- * weechat::register: startup function for all WeeChat Perl scripts
+ * Registers a perl script.
  */
 
 XS (XS_weechat_api_register)
@@ -173,7 +173,10 @@ XS (XS_weechat_api_register)
 }
 
 /*
- * weechat::plugin_get_name: get name of plugin (return "core" for WeeChat core)
+ * Wrappers for functions in scripting API.
+ *
+ * For more info about these functions, look at their implementation in WeeChat
+ * core.
  */
 
 XS (XS_weechat_api_plugin_get_name)
@@ -190,10 +193,6 @@ XS (XS_weechat_api_plugin_get_name)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::charser_set: set script charset
- */
-
 XS (XS_weechat_api_charset_set)
 {
     dXSARGS;
@@ -208,10 +207,6 @@ XS (XS_weechat_api_charset_set)
     API_RETURN_OK;
 }
 
-/*
- * weechat::iconv_to_internal: convert string to internal WeeChat charset
- */
-
 XS (XS_weechat_api_iconv_to_internal)
 {
     char *result, *charset, *string;
@@ -229,11 +224,6 @@ XS (XS_weechat_api_iconv_to_internal)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::iconv_from_internal: convert string from WeeChat inernal charset
- *                               to another one
- */
-
 XS (XS_weechat_api_iconv_from_internal)
 {
     char *result, *charset, *string;
@@ -251,10 +241,6 @@ XS (XS_weechat_api_iconv_from_internal)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::gettext: get translated string
- */
-
 XS (XS_weechat_api_gettext)
 {
     const char *result;
@@ -269,10 +255,6 @@ XS (XS_weechat_api_gettext)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::ngettext: get translated string with plural form
- */
-
 XS (XS_weechat_api_ngettext)
 {
     char *single, *plural;
@@ -292,12 +274,6 @@ XS (XS_weechat_api_ngettext)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::string_match: return 1 if string matches a mask
- *                        mask can begin or end with "*", no other "*"
- *                        are allowed inside mask
- */
-
 XS (XS_weechat_api_string_match)
 {
     int value;
@@ -314,12 +290,6 @@ XS (XS_weechat_api_string_match)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::string_has_highlight: return 1 if string contains a highlight
- *                                (using list of words to highlight)
- *                                return 0 if no highlight is found in string
- */
-
 XS (XS_weechat_api_string_has_highlight)
 {
     int value;
@@ -335,13 +305,6 @@ XS (XS_weechat_api_string_has_highlight)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::string_has_highlight_regex: return 1 if string contains a highlight
- *                                      (using regular expression)
- *                                      return 0 if no highlight is found in
- *                                      string
- */
-
 XS (XS_weechat_api_string_has_highlight_regex)
 {
     int value;
@@ -357,12 +320,6 @@ XS (XS_weechat_api_string_has_highlight_regex)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::string_mask_to_regex: convert a mask (string with only "*" as
- *                                wildcard) to a regex, paying attention to
- *                                special chars in a regex
- */
-
 XS (XS_weechat_api_string_mask_to_regex)
 {
     char *result;
@@ -377,10 +334,6 @@ XS (XS_weechat_api_string_mask_to_regex)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::string_remove_color: remove WeeChat color codes from string
- */
-
 XS (XS_weechat_api_string_remove_color)
 {
     char *result, *string, *replacement;
@@ -398,11 +351,6 @@ XS (XS_weechat_api_string_remove_color)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::string_is_command_char: check if first char of string is a command
- *                                  char
- */
-
 XS (XS_weechat_api_string_is_command_char)
 {
     int value;
@@ -417,11 +365,6 @@ XS (XS_weechat_api_string_is_command_char)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::string_input_for_buffer: return string with input text for buffer
- *                                   or empty string if it's a command
- */
-
 XS (XS_weechat_api_string_input_for_buffer)
 {
     const char *result;
@@ -436,10 +379,6 @@ XS (XS_weechat_api_string_input_for_buffer)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::string_eval_expression: evaluate expression and return result
- */
-
 XS (XS_weechat_api_string_eval_expression)
 {
     char *expr, *result;
@@ -470,10 +409,6 @@ XS (XS_weechat_api_string_eval_expression)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::mkdir_home: create a directory in WeeChat home
- */
-
 XS (XS_weechat_api_mkdir_home)
 {
     dXSARGS;
@@ -489,10 +424,6 @@ XS (XS_weechat_api_mkdir_home)
     API_RETURN_ERROR;
 }
 
-/*
- * weechat::mkdir: create a directory
- */
-
 XS (XS_weechat_api_mkdir)
 {
     dXSARGS;
@@ -508,11 +439,6 @@ XS (XS_weechat_api_mkdir)
     API_RETURN_ERROR;
 }
 
-/*
- * weechat::mkdir_parents: create a directory and make parent directories as
- *                         needed
- */
-
 XS (XS_weechat_api_mkdir_parents)
 {
     dXSARGS;
@@ -528,10 +454,6 @@ XS (XS_weechat_api_mkdir_parents)
     API_RETURN_ERROR;
 }
 
-/*
- * weechat::list_new: create a new list
- */
-
 XS (XS_weechat_api_list_new)
 {
     char *result;
@@ -548,10 +470,6 @@ XS (XS_weechat_api_list_new)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::list_add: add a string to list
- */
-
 XS (XS_weechat_api_list_add)
 {
     char *result, *weelist, *data, *where, *user_data;
@@ -574,10 +492,6 @@ XS (XS_weechat_api_list_add)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::list_search: search a string in list
- */
-
 XS (XS_weechat_api_list_search)
 {
     char *result, *weelist, *data;
@@ -596,10 +510,6 @@ XS (XS_weechat_api_list_search)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::list_search_pos: search position of a string in list
- */
-
 XS (XS_weechat_api_list_search_pos)
 {
     char *weelist, *data;
@@ -618,10 +528,6 @@ XS (XS_weechat_api_list_search_pos)
     API_RETURN_INT(pos);
 }
 
-/*
- * weechat::list_casesearch: search a string in list (ignore case)
- */
-
 XS (XS_weechat_api_list_casesearch)
 {
     char *result, *weelist, *data;
@@ -640,11 +546,6 @@ XS (XS_weechat_api_list_casesearch)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::list_casesearch_pos: search position of a string in list
- *                               (ignore case)
- */
-
 XS (XS_weechat_api_list_casesearch_pos)
 {
     char *weelist, *data;
@@ -663,10 +564,6 @@ XS (XS_weechat_api_list_casesearch_pos)
     API_RETURN_INT(pos);
 }
 
-/*
- * weechat::list_get: get item by position
- */
-
 XS (XS_weechat_api_list_get)
 {
     char *result;
@@ -682,10 +579,6 @@ XS (XS_weechat_api_list_get)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::list_set: set new value for item
- */
-
 XS (XS_weechat_api_list_set)
 {
     char *item, *new_value;
@@ -703,10 +596,6 @@ XS (XS_weechat_api_list_set)
     API_RETURN_OK;
 }
 
-/*
- * weechat::list_next: get next item
- */
-
 XS (XS_weechat_api_list_next)
 {
     char *result;
@@ -721,10 +610,6 @@ XS (XS_weechat_api_list_next)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::list_prev: get previous item
- */
-
 XS (XS_weechat_api_list_prev)
 {
     char *result;
@@ -739,10 +624,6 @@ XS (XS_weechat_api_list_prev)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::list_string: get string value of item
- */
-
 XS (XS_weechat_api_list_string)
 {
     const char *result;
@@ -757,10 +638,6 @@ XS (XS_weechat_api_list_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::list_size: get number of elements in list
- */
-
 XS (XS_weechat_api_list_size)
 {
     int size;
@@ -775,10 +652,6 @@ XS (XS_weechat_api_list_size)
     API_RETURN_INT(size);
 }
 
-/*
- * weechat::list_remove: remove item from list
- */
-
 XS (XS_weechat_api_list_remove)
 {
     char *weelist, *item;
@@ -797,10 +670,6 @@ XS (XS_weechat_api_list_remove)
     API_RETURN_OK;
 }
 
-/*
- * weechat::list_remove_all: remove all items from list
- */
-
 XS (XS_weechat_api_list_remove_all)
 {
     dXSARGS;
@@ -814,10 +683,6 @@ XS (XS_weechat_api_list_remove_all)
     API_RETURN_OK;
 }
 
-/*
- * weechat::list_free: free list
- */
-
 XS (XS_weechat_api_list_free)
 {
     dXSARGS;
@@ -831,10 +696,6 @@ XS (XS_weechat_api_list_free)
     API_RETURN_OK;
 }
 
-/*
- * weechat_perl_api_config_reload_cb: callback for config reload
- */
-
 int
 weechat_perl_api_config_reload_cb (void *data,
                                    struct t_config_file *config_file)
@@ -872,10 +733,6 @@ weechat_perl_api_config_reload_cb (void *data,
     return WEECHAT_CONFIG_READ_FILE_NOT_FOUND;
 }
 
-/*
- * weechat::config_new: create a new configuration file
- */
-
 XS (XS_weechat_api_config_new)
 {
     char *result, *name, *function, *data;
@@ -899,10 +756,6 @@ XS (XS_weechat_api_config_new)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_config_section_read_cb: callback for reading option in section
- */
-
 int
 weechat_perl_api_config_section_read_cb (void *data,
                                          struct t_config_file *config_file,
@@ -948,10 +801,6 @@ weechat_perl_api_config_section_read_cb (void *data,
     return WEECHAT_CONFIG_OPTION_SET_ERROR;
 }
 
-/*
- * weechat_perl_api_config_section_write_cb: callback for writing section
- */
-
 int
 weechat_perl_api_config_section_write_cb (void *data,
                                           struct t_config_file *config_file,
@@ -991,11 +840,6 @@ weechat_perl_api_config_section_write_cb (void *data,
     return WEECHAT_CONFIG_WRITE_ERROR;
 }
 
-/*
- * weechat_perl_api_config_section_write_default_cb: callback for writing
- *                                                   default values for section
- */
-
 int
 weechat_perl_api_config_section_write_default_cb (void *data,
                                                   struct t_config_file *config_file,
@@ -1035,10 +879,6 @@ weechat_perl_api_config_section_write_default_cb (void *data,
     return WEECHAT_CONFIG_WRITE_ERROR;
 }
 
-/*
- * weechat_perl_api_config_section_create_option_cb: callback to create an option
- */
-
 int
 weechat_perl_api_config_section_create_option_cb (void *data,
                                                   struct t_config_file *config_file,
@@ -1084,10 +924,6 @@ weechat_perl_api_config_section_create_option_cb (void *data,
     return WEECHAT_CONFIG_OPTION_SET_ERROR;
 }
 
-/*
- * weechat_perl_api_config_section_delete_option_cb: callback to delete an option
- */
-
 int
 weechat_perl_api_config_section_delete_option_cb (void *data,
                                                   struct t_config_file *config_file,
@@ -1133,10 +969,6 @@ weechat_perl_api_config_section_delete_option_cb (void *data,
     return WEECHAT_CONFIG_OPTION_UNSET_ERROR;
 }
 
-/*
- * weechat::config_new_section: create a new section in configuration file
- */
-
 XS (XS_weechat_api_config_new_section)
 {
     char *result, *cfg_file, *name, *function_read, *data_read;
@@ -1188,10 +1020,6 @@ XS (XS_weechat_api_config_new_section)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::config_search_section: search section in configuration file
- */
-
 XS (XS_weechat_api_config_search_section)
 {
     char *result, *config_file, *section_name;
@@ -1210,11 +1038,6 @@ XS (XS_weechat_api_config_search_section)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_config_option_check_value_cb: callback for checking new
- *                                                value for option
- */
-
 int
 weechat_perl_api_config_option_check_value_cb (void *data,
                                                struct t_config_option *option,
@@ -1254,10 +1077,6 @@ weechat_perl_api_config_option_check_value_cb (void *data,
     return 0;
 }
 
-/*
- * weechat_perl_api_config_option_change_cb: callback for option changed
- */
-
 void
 weechat_perl_api_config_option_change_cb (void *data,
                                           struct t_config_option *option)
@@ -1287,10 +1106,6 @@ weechat_perl_api_config_option_change_cb (void *data,
     }
 }
 
-/*
- * weechat_perl_api_config_option_delete_cb: callback when option is deleted
- */
-
 void
 weechat_perl_api_config_option_delete_cb (void *data,
                                           struct t_config_option *option)
@@ -1320,10 +1135,6 @@ weechat_perl_api_config_option_delete_cb (void *data,
     }
 }
 
-/*
- * weechat::config_new_option: create a new option in section
- */
-
 XS (XS_weechat_api_config_new_option)
 {
     char *result, *config_file, *section, *name, *type;
@@ -1377,10 +1188,6 @@ XS (XS_weechat_api_config_new_option)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::config_search_option: search option in configuration file or section
- */
-
 XS (XS_weechat_api_config_search_option)
 {
     char *result, *config_file, *section, *option_name;
@@ -1401,10 +1208,6 @@ XS (XS_weechat_api_config_search_option)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::config_string_to_boolean: return boolean value of a string
- */
-
 XS (XS_weechat_api_config_string_to_boolean)
 {
     int value;
@@ -1419,10 +1222,6 @@ XS (XS_weechat_api_config_string_to_boolean)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::config_option_reset: reset an option with default value
- */
-
 XS (XS_weechat_api_config_option_reset)
 {
     int rc;
@@ -1441,10 +1240,6 @@ XS (XS_weechat_api_config_option_reset)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_option_set: set new value for option
- */
-
 XS (XS_weechat_api_config_option_set)
 {
     int rc;
@@ -1465,10 +1260,6 @@ XS (XS_weechat_api_config_option_set)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_option_set_null: set null (undefined) value for option
- */
-
 XS (XS_weechat_api_config_option_set_null)
 {
     int rc;
@@ -1487,10 +1278,6 @@ XS (XS_weechat_api_config_option_set_null)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_option_unset: unset an option
- */
-
 XS (XS_weechat_api_config_option_unset)
 {
     int rc;
@@ -1508,10 +1295,6 @@ XS (XS_weechat_api_config_option_unset)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_option_rename: rename an option
- */
-
 XS (XS_weechat_api_config_option_rename)
 {
     char *option, *new_name;
@@ -1530,10 +1313,6 @@ XS (XS_weechat_api_config_option_rename)
     API_RETURN_OK;
 }
 
-/*
- * weechat::config_option_is_null: return 1 if value of option is null
- */
-
 XS (XS_weechat_api_config_option_is_null)
 {
     int value;
@@ -1548,11 +1327,6 @@ XS (XS_weechat_api_config_option_is_null)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::config_option_default_is_null: return 1 if default value of option
- *                                         is null
- */
-
 XS (XS_weechat_api_config_option_default_is_null)
 {
     int value;
@@ -1567,10 +1341,6 @@ XS (XS_weechat_api_config_option_default_is_null)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::config_boolean: return boolean value of option
- */
-
 XS (XS_weechat_api_config_boolean)
 {
     int value;
@@ -1585,10 +1355,6 @@ XS (XS_weechat_api_config_boolean)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::config_boolean_default: return default boolean value of option
- */
-
 XS (XS_weechat_api_config_boolean_default)
 {
     int value;
@@ -1603,10 +1369,6 @@ XS (XS_weechat_api_config_boolean_default)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::config_integer: return integer value of option
- */
-
 XS (XS_weechat_api_config_integer)
 {
     int value;
@@ -1621,10 +1383,6 @@ XS (XS_weechat_api_config_integer)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::config_integer_default: return default integer value of option
- */
-
 XS (XS_weechat_api_config_integer_default)
 {
     int value;
@@ -1639,10 +1397,6 @@ XS (XS_weechat_api_config_integer_default)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::config_string: return string value of option
- */
-
 XS (XS_weechat_api_config_string)
 {
     const char *result;
@@ -1657,10 +1411,6 @@ XS (XS_weechat_api_config_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::config_string_default: return default string value of option
- */
-
 XS (XS_weechat_api_config_string_default)
 {
     const char *result;
@@ -1675,10 +1425,6 @@ XS (XS_weechat_api_config_string_default)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::config_color: return color value of option
- */
-
 XS (XS_weechat_api_config_color)
 {
     const char *result;
@@ -1693,10 +1439,6 @@ XS (XS_weechat_api_config_color)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::config_color_default: return default color value of option
- */
-
 XS (XS_weechat_api_config_color_default)
 {
     const char *result;
@@ -1711,10 +1453,6 @@ XS (XS_weechat_api_config_color_default)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::config_write_option: write an option in configuration file
- */
-
 XS (XS_weechat_api_config_write_option)
 {
     char *config_file, *option;
@@ -1733,10 +1471,6 @@ XS (XS_weechat_api_config_write_option)
     API_RETURN_OK;
 }
 
-/*
- * weechat::config_write_line: write a line in configuration file
- */
-
 XS (XS_weechat_api_config_write_line)
 {
     char *config_file, *option_name, *value;
@@ -1756,10 +1490,6 @@ XS (XS_weechat_api_config_write_line)
     API_RETURN_OK;
 }
 
-/*
- * weechat::config_write: write configuration file
- */
-
 XS (XS_weechat_api_config_write)
 {
     int rc;
@@ -1774,10 +1504,6 @@ XS (XS_weechat_api_config_write)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_read: read configuration file
- */
-
 XS (XS_weechat_api_config_read)
 {
     int rc;
@@ -1792,10 +1518,6 @@ XS (XS_weechat_api_config_read)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_reload: reload configuration file
- */
-
 XS (XS_weechat_api_config_reload)
 {
     int rc;
@@ -1810,10 +1532,6 @@ XS (XS_weechat_api_config_reload)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_option_free: free an option in configuration file
- */
-
 XS (XS_weechat_api_config_option_free)
 {
     dXSARGS;
@@ -1829,11 +1547,6 @@ XS (XS_weechat_api_config_option_free)
     API_RETURN_OK;
 }
 
-/*
- * weechat::config_section_free_options: free options of a section in
- *                                       configuration file
- */
-
 XS (XS_weechat_api_config_section_free_options)
 {
     dXSARGS;
@@ -1849,10 +1562,6 @@ XS (XS_weechat_api_config_section_free_options)
     API_RETURN_OK;
 }
 
-/*
- * weechat::config_section_free: free section in configuration file
- */
-
 XS (XS_weechat_api_config_section_free)
 {
     dXSARGS;
@@ -1868,10 +1577,6 @@ XS (XS_weechat_api_config_section_free)
     API_RETURN_OK;
 }
 
-/*
- * weechat::config_free: free configuration file
- */
-
 XS (XS_weechat_api_config_free)
 {
     dXSARGS;
@@ -1887,10 +1592,6 @@ XS (XS_weechat_api_config_free)
     API_RETURN_OK;
 }
 
-/*
- * weechat::config_get: get config option
- */
-
 XS (XS_weechat_api_config_get)
 {
     char *result;
@@ -1905,10 +1606,6 @@ XS (XS_weechat_api_config_get)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::config_get_plugin: get value of a plugin option
- */
-
 XS (XS_weechat_api_config_get_plugin)
 {
     const char *result;
@@ -1925,10 +1622,6 @@ XS (XS_weechat_api_config_get_plugin)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::config_is_set_plugin: check if a plugin option is set
- */
-
 XS (XS_weechat_api_config_is_set_plugin)
 {
     char *option;
@@ -1948,10 +1641,6 @@ XS (XS_weechat_api_config_is_set_plugin)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_set_plugin: set value of a plugin option
- */
-
 XS (XS_weechat_api_config_set_plugin)
 {
     char *option, *value;
@@ -1973,10 +1662,6 @@ XS (XS_weechat_api_config_set_plugin)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::config_set_desc_plugin: set description of a plugin option
- */
-
 XS (XS_weechat_api_config_set_desc_plugin)
 {
     char *option, *description;
@@ -1997,10 +1682,6 @@ XS (XS_weechat_api_config_set_desc_plugin)
     API_RETURN_OK;
 }
 
-/*
- * weechat::config_unset_plugin: unset a plugin option
- */
-
 XS (XS_weechat_api_config_unset_plugin)
 {
     char *option;
@@ -2020,10 +1701,6 @@ XS (XS_weechat_api_config_unset_plugin)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::key_bind: bind key(s)
- */
-
 XS (XS_weechat_api_key_bind)
 {
     char *context;
@@ -2049,10 +1726,6 @@ XS (XS_weechat_api_key_bind)
     API_RETURN_INT(num_keys);
 }
 
-/*
- * weechat::key_unbind: unbind key(s)
- */
-
 XS (XS_weechat_api_key_unbind)
 {
     char *context, *key;
@@ -2071,10 +1744,6 @@ XS (XS_weechat_api_key_unbind)
     API_RETURN_INT(num_keys);
 }
 
-/*
- * weechat::prefix: get a prefix, used for display
- */
-
 XS (XS_weechat_api_prefix)
 {
     const char *result;
@@ -2089,10 +1758,6 @@ XS (XS_weechat_api_prefix)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::color: get a color code, used for display
- */
-
 XS (XS_weechat_api_color)
 {
     const char *result;
@@ -2107,10 +1772,6 @@ XS (XS_weechat_api_color)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::print: print message in a buffer
- */
-
 XS (XS_weechat_api_print)
 {
     char *buffer, *message;
@@ -2131,11 +1792,6 @@ XS (XS_weechat_api_print)
     API_RETURN_OK;
 }
 
-/*
- * weechat::print_date_tags: print message in a buffer with optional date and
- *                           tags
- */
-
 XS (XS_weechat_api_print_date_tags)
 {
     char *buffer, *tags, *message;
@@ -2159,10 +1815,6 @@ XS (XS_weechat_api_print_date_tags)
     API_RETURN_OK;
 }
 
-/*
- * weechat::print_y: print message in a buffer with free content
- */
-
 XS (XS_weechat_api_print_y)
 {
     char *buffer, *message;
@@ -2184,10 +1836,6 @@ XS (XS_weechat_api_print_y)
     API_RETURN_OK;
 }
 
-/*
- * weechat::log_print: print message in WeeChat log file
- */
-
 XS (XS_weechat_api_log_print)
 {
     dXSARGS;
@@ -2204,10 +1852,6 @@ XS (XS_weechat_api_log_print)
     API_RETURN_OK;
 }
 
-/*
- * weechat_perl_api_hook_command_cb: callback for command hooked
- */
-
 int
 weechat_perl_api_hook_command_cb (void *data, struct t_gui_buffer *buffer,
                                   int argc, char **argv, char **argv_eol)
@@ -2249,10 +1893,6 @@ weechat_perl_api_hook_command_cb (void *data, struct t_gui_buffer *buffer,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_command: hook a command
- */
-
 XS (XS_weechat_api_hook_command)
 {
     char *result, *command, *description, *args, *args_description;
@@ -2285,10 +1925,6 @@ XS (XS_weechat_api_hook_command)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_command_run_cb: callback for command_run hooked
- */
-
 int
 weechat_perl_api_hook_command_run_cb (void *data, struct t_gui_buffer *buffer,
                                       const char *command)
@@ -2327,10 +1963,6 @@ weechat_perl_api_hook_command_run_cb (void *data, struct t_gui_buffer *buffer,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_command_run: hook a command_run
- */
-
 XS (XS_weechat_api_hook_command_run)
 {
     char *result, *command, *function, *data;
@@ -2354,10 +1986,6 @@ XS (XS_weechat_api_hook_command_run)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_timer_cb: callback for timer hooked
- */
-
 int
 weechat_perl_api_hook_timer_cb (void *data, int remaining_calls)
 {
@@ -2395,10 +2023,6 @@ weechat_perl_api_hook_timer_cb (void *data, int remaining_calls)
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_timer: hook a timer
- */
-
 XS (XS_weechat_api_hook_timer)
 {
     char *result;
@@ -2420,10 +2044,6 @@ XS (XS_weechat_api_hook_timer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_fd_cb: callback for fd hooked
- */
-
 int
 weechat_perl_api_hook_fd_cb (void *data, int fd)
 {
@@ -2460,10 +2080,6 @@ weechat_perl_api_hook_fd_cb (void *data, int fd)
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_fd: hook a fd
- */
-
 XS (XS_weechat_api_hook_fd)
 {
     char *result;
@@ -2486,10 +2102,6 @@ XS (XS_weechat_api_hook_fd)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_process_cb: callback for process hooked
- */
-
 int
 weechat_perl_api_hook_process_cb (void *data,
                                   const char *command, int return_code,
@@ -2529,10 +2141,6 @@ weechat_perl_api_hook_process_cb (void *data,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_process: hook a process
- */
-
 XS (XS_weechat_api_hook_process)
 {
     char *command, *function, *data, *result;
@@ -2557,10 +2165,6 @@ XS (XS_weechat_api_hook_process)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hook_process_hashtable: hook a process with options in a hashtable
- */
-
 XS (XS_weechat_api_hook_process_hashtable)
 {
     char *command, *function, *data, *result;
@@ -2594,10 +2198,6 @@ XS (XS_weechat_api_hook_process_hashtable)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_connect_cb: callback for connect hooked
- */
-
 int
 weechat_perl_api_hook_connect_cb (void *data, int status, int gnutls_rc,
                                   int sock, const char *error,
@@ -2643,10 +2243,6 @@ weechat_perl_api_hook_connect_cb (void *data, int status, int gnutls_rc,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_connect: hook a connection
- */
-
 XS (XS_weechat_api_hook_connect)
 {
     char *proxy, *address, *local_hostname, *function, *data, *result;
@@ -2681,10 +2277,6 @@ XS (XS_weechat_api_hook_connect)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_print_cb: callback for print hooked
- */
-
 int
 weechat_perl_api_hook_print_cb (void *data, struct t_gui_buffer *buffer,
                                 time_t date,
@@ -2745,10 +2337,6 @@ weechat_perl_api_hook_print_cb (void *data, struct t_gui_buffer *buffer,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_print: hook a print
- */
-
 XS (XS_weechat_api_hook_print)
 {
     char *result, *buffer, *tags, *message, *function, *data;
@@ -2777,10 +2365,6 @@ XS (XS_weechat_api_hook_print)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_signal_cb: callback for signal hooked
- */
-
 int
 weechat_perl_api_hook_signal_cb (void *data, const char *signal, const char *type_data,
                                  void *signal_data)
@@ -2837,10 +2421,6 @@ weechat_perl_api_hook_signal_cb (void *data, const char *signal, const char *typ
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_signal: hook a signal
- */
-
 XS (XS_weechat_api_hook_signal)
 {
     char *result, *signal, *function, *data;
@@ -2864,10 +2444,6 @@ XS (XS_weechat_api_hook_signal)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hook_signal_send: send a signal
- */
-
 XS (XS_weechat_api_hook_signal_send)
 {
     char *signal, *type_data;
@@ -2906,10 +2482,6 @@ XS (XS_weechat_api_hook_signal_send)
     API_RETURN_ERROR;
 }
 
-/*
- * weechat_perl_api_hook_hsignal_cb: callback for hsignal hooked
- */
-
 int
 weechat_perl_api_hook_hsignal_cb (void *data, const char *signal,
                                   struct t_hashtable *hashtable)
@@ -2946,10 +2518,6 @@ weechat_perl_api_hook_hsignal_cb (void *data, const char *signal,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_hsignal: hook a hsignal
- */
-
 XS (XS_weechat_api_hook_hsignal)
 {
     char *result, *signal, *function, *data;
@@ -2973,10 +2541,6 @@ XS (XS_weechat_api_hook_hsignal)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hook_hsignal_send: send a hsignal
- */
-
 XS (XS_weechat_api_hook_hsignal_send)
 {
     char *signal;
@@ -3001,10 +2565,6 @@ XS (XS_weechat_api_hook_hsignal_send)
     API_RETURN_OK;
 }
 
-/*
- * weechat_perl_api_hook_config_cb: callback for config option hooked
- */
-
 int
 weechat_perl_api_hook_config_cb (void *data, const char *option, const char *value)
 {
@@ -3040,10 +2600,6 @@ weechat_perl_api_hook_config_cb (void *data, const char *option, const char *val
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_config: hook a config option
- */
-
 XS (XS_weechat_api_hook_config)
 {
     char *result, *option, *function, *data;
@@ -3067,10 +2623,6 @@ XS (XS_weechat_api_hook_config)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_completion_cb: callback for completion hooked
- */
-
 int
 weechat_perl_api_hook_completion_cb (void *data, const char *completion_item,
                                      struct t_gui_buffer *buffer,
@@ -3113,10 +2665,6 @@ weechat_perl_api_hook_completion_cb (void *data, const char *completion_item,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::hook_completion: hook a completion
- */
-
 XS (XS_weechat_api_hook_completion)
 {
     char *result, *completion, *description, *function, *data;
@@ -3142,10 +2690,6 @@ XS (XS_weechat_api_hook_completion)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hook_completion_list_add: add a word to list for a completion
- */
-
 XS (XS_weechat_api_hook_completion_list_add)
 {
     char *completion, *word, *where;
@@ -3167,10 +2711,6 @@ XS (XS_weechat_api_hook_completion_list_add)
     API_RETURN_OK;
 }
 
-/*
- * weechat_perl_api_hook_modifier_cb: callback for modifier hooked
- */
-
 char *
 weechat_perl_api_hook_modifier_cb (void *data, const char *modifier,
                                    const char *modifier_data, const char *string)
@@ -3197,10 +2737,6 @@ weechat_perl_api_hook_modifier_cb (void *data, const char *modifier,
     return NULL;
 }
 
-/*
- * weechat::hook_modifier: hook a modifier
- */
-
 XS (XS_weechat_api_hook_modifier)
 {
     char *result, *modifier, *function, *data;
@@ -3224,10 +2760,6 @@ XS (XS_weechat_api_hook_modifier)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hook_modifier_exec: execute a modifier hook
- */
-
 XS (XS_weechat_api_hook_modifier_exec)
 {
     char *result, *modifier, *modifier_data, *string;
@@ -3246,10 +2778,6 @@ XS (XS_weechat_api_hook_modifier_exec)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_info_cb: callback for info hooked
- */
-
 const char *
 weechat_perl_api_hook_info_cb (void *data, const char *info_name,
                                const char *arguments)
@@ -3275,10 +2803,6 @@ weechat_perl_api_hook_info_cb (void *data, const char *info_name,
     return NULL;
 }
 
-/*
- * weechat::hook_info: hook an info
- */
-
 XS (XS_weechat_api_hook_info)
 {
     char *result, *info_name, *description, *args_description, *function, *data;
@@ -3306,10 +2830,6 @@ XS (XS_weechat_api_hook_info)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_info_hashtable_cb: callback for info_hashtable hooked
- */
-
 struct t_hashtable *
 weechat_perl_api_hook_info_hashtable_cb (void *data, const char *info_name,
                                          struct t_hashtable *hashtable)
@@ -3335,10 +2855,6 @@ weechat_perl_api_hook_info_hashtable_cb (void *data, const char *info_name,
     return NULL;
 }
 
-/*
- * weechat::hook_info_hashtable: hook an info_hashtable
- */
-
 XS (XS_weechat_api_hook_info_hashtable)
 {
     char *result, *info_name, *description, *args_description;
@@ -3369,10 +2885,6 @@ XS (XS_weechat_api_hook_info_hashtable)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_infolist_cb: callback for infolist hooked
- */
-
 struct t_infolist *
 weechat_perl_api_hook_infolist_cb (void *data, const char *infolist_name,
                                    void *pointer, const char *arguments)
@@ -3405,10 +2917,6 @@ weechat_perl_api_hook_infolist_cb (void *data, const char *infolist_name,
     return NULL;
 }
 
-/*
- * weechat::hook_infolist: hook an infolist
- */
-
 XS (XS_weechat_api_hook_infolist)
 {
     char *result, *infolist_name, *description, *pointer_description;
@@ -3439,10 +2947,6 @@ XS (XS_weechat_api_hook_infolist)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_hook_focus_cb: callback for focus hooked
- */
-
 struct t_hashtable *
 weechat_perl_api_hook_focus_cb (void *data,
                                 struct t_hashtable *info)
@@ -3467,10 +2971,6 @@ weechat_perl_api_hook_focus_cb (void *data,
     return NULL;
 }
 
-/*
- * weechat::hook_focus: hook a focus
- */
-
 XS (XS_weechat_api_hook_focus)
 {
     char *result, *area, *function, *data;
@@ -3494,10 +2994,6 @@ XS (XS_weechat_api_hook_focus)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::unhook: unhook something
- */
-
 XS (XS_weechat_api_unhook)
 {
     dXSARGS;
@@ -3513,10 +3009,6 @@ XS (XS_weechat_api_unhook)
     API_RETURN_OK;
 }
 
-/*
- * weechat::unhook_all: unhook all for script
- */
-
 XS (XS_weechat_api_unhook_all)
 {
     dXSARGS;
@@ -3532,10 +3024,6 @@ XS (XS_weechat_api_unhook_all)
     API_RETURN_OK;
 }
 
-/*
- * weechat_perl_api_buffer_input_data_cb: callback for input data in a buffer
- */
-
 int
 weechat_perl_api_buffer_input_data_cb (void *data, struct t_gui_buffer *buffer,
                                        const char *input_data)
@@ -3573,10 +3061,6 @@ weechat_perl_api_buffer_input_data_cb (void *data, struct t_gui_buffer *buffer,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat_perl_api_buffer_close_cb: callback for buffer closed
- */
-
 int
 weechat_perl_api_buffer_close_cb (void *data, struct t_gui_buffer *buffer)
 {
@@ -3612,10 +3096,6 @@ weechat_perl_api_buffer_close_cb (void *data, struct t_gui_buffer *buffer)
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::buffer_new: create a new buffer
- */
-
 XS (XS_weechat_api_buffer_new)
 {
     char *result, *name, *function_input, *data_input, *function_close;
@@ -3645,10 +3125,6 @@ XS (XS_weechat_api_buffer_new)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::buffer_search: search a buffer
- */
-
 XS (XS_weechat_api_buffer_search)
 {
     char *result, *plugin, *name;
@@ -3666,10 +3142,6 @@ XS (XS_weechat_api_buffer_search)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::buffer_search_main: search main buffer (WeeChat core buffer)
- */
-
 XS (XS_weechat_api_buffer_search_main)
 {
     char *result;
@@ -3686,10 +3158,6 @@ XS (XS_weechat_api_buffer_search_main)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::current_buffer: get current buffer
- */
-
 XS (XS_weechat_api_current_buffer)
 {
     char *result;
@@ -3706,10 +3174,6 @@ XS (XS_weechat_api_current_buffer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::buffer_clear: clear a buffer
- */
-
 XS (XS_weechat_api_buffer_clear)
 {
     dXSARGS;
@@ -3723,10 +3187,6 @@ XS (XS_weechat_api_buffer_clear)
     API_RETURN_OK;
 }
 
-/*
- * weechat::buffer_close: close a buffer
- */
-
 XS (XS_weechat_api_buffer_close)
 {
     dXSARGS;
@@ -3742,10 +3202,6 @@ XS (XS_weechat_api_buffer_close)
     API_RETURN_OK;
 }
 
-/*
- * weechat::buffer_merge: merge a buffer to another buffer
- */
-
 XS (XS_weechat_api_buffer_merge)
 {
     dXSARGS;
@@ -3760,10 +3216,6 @@ XS (XS_weechat_api_buffer_merge)
     API_RETURN_OK;
 }
 
-/*
- * weechat::buffer_unmerge: unmerge a buffer from group of merged buffers
- */
-
 XS (XS_weechat_api_buffer_unmerge)
 {
     dXSARGS;
@@ -3778,10 +3230,6 @@ XS (XS_weechat_api_buffer_unmerge)
     API_RETURN_OK;
 }
 
-/*
- * weechat::buffer_get_integer: get a buffer property as integer
- */
-
 XS (XS_weechat_api_buffer_get_integer)
 {
     char *buffer, *property;
@@ -3800,10 +3248,6 @@ XS (XS_weechat_api_buffer_get_integer)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::buffer_get_string: get a buffer property as string
- */
-
 XS (XS_weechat_api_buffer_get_string)
 {
     char *buffer, *property;
@@ -3822,10 +3266,6 @@ XS (XS_weechat_api_buffer_get_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::buffer_get_pointer: get a buffer property as pointer
- */
-
 XS (XS_weechat_api_buffer_get_pointer)
 {
     char *result, *buffer, *property;
@@ -3844,10 +3284,6 @@ XS (XS_weechat_api_buffer_get_pointer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::buffer_set: set a buffer property
- */
-
 XS (XS_weechat_api_buffer_set)
 {
     char *buffer, *property, *value;
@@ -3866,11 +3302,6 @@ XS (XS_weechat_api_buffer_set)
     API_RETURN_OK;
 }
 
-/*
- * weechat::buffer_string_replace_local_var: replace local variables ($var) in a string,
- *                                           using value of local variables
- */
-
 XS (XS_weechat_api_buffer_string_replace_local_var)
 {
     char *buffer, *string, *result;
@@ -3888,10 +3319,6 @@ XS (XS_weechat_api_buffer_string_replace_local_var)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::buffer_match_list: return 1 if buffer matches list of buffers
- */
-
 XS (XS_weechat_api_buffer_match_list)
 {
     char *buffer, *string;
@@ -3910,10 +3337,6 @@ XS (XS_weechat_api_buffer_match_list)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::current_window: get current window
- */
-
 XS (XS_weechat_api_current_window)
 {
     char *result;
@@ -3930,10 +3353,6 @@ XS (XS_weechat_api_current_window)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::window_search_with_buffer: search a window with buffer pointer
- */
-
 XS (XS_weechat_api_window_search_with_buffer)
 {
     char *result;
@@ -3949,10 +3368,6 @@ XS (XS_weechat_api_window_search_with_buffer)
 }
 
 
-/*
- * weechat::window_get_integer: get a window property as integer
- */
-
 XS (XS_weechat_api_window_get_integer)
 {
     char *window, *property;
@@ -3971,10 +3386,6 @@ XS (XS_weechat_api_window_get_integer)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::window_get_string: get a window property as string
- */
-
 XS (XS_weechat_api_window_get_string)
 {
     char *window, *property;
@@ -3993,10 +3404,6 @@ XS (XS_weechat_api_window_get_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::window_get_pointer: get a window property as pointer
- */
-
 XS (XS_weechat_api_window_get_pointer)
 {
     char *result, *window, *property;
@@ -4015,10 +3422,6 @@ XS (XS_weechat_api_window_get_pointer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::window_set_title: set window title
- */
-
 XS (XS_weechat_api_window_set_title)
 {
     dXSARGS;
@@ -4032,10 +3435,6 @@ XS (XS_weechat_api_window_set_title)
     API_RETURN_OK;
 }
 
-/*
- * weechat::nicklist_add_group: add a group in nicklist
- */
-
 XS (XS_weechat_api_nicklist_add_group)
 {
     char *result, *buffer, *parent_group, *name, *color;
@@ -4059,10 +3458,6 @@ XS (XS_weechat_api_nicklist_add_group)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::nicklist_search_group: search a group in nicklist
- */
-
 XS (XS_weechat_api_nicklist_search_group)
 {
     char *result, *buffer, *from_group, *name;
@@ -4083,10 +3478,6 @@ XS (XS_weechat_api_nicklist_search_group)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::nicklist_add_nick: add a nick in nicklist
- */
-
 XS (XS_weechat_api_nicklist_add_nick)
 {
     char *result, *buffer, *group, *name, *color, *prefix, *prefix_color;
@@ -4114,10 +3505,6 @@ XS (XS_weechat_api_nicklist_add_nick)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::nicklist_search_nick: search a nick in nicklist
- */
-
 XS (XS_weechat_api_nicklist_search_nick)
 {
     char *result, *buffer, *from_group, *name;
@@ -4138,10 +3525,6 @@ XS (XS_weechat_api_nicklist_search_nick)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::nicklist_remove_group: remove a group from nicklist
- */
-
 XS (XS_weechat_api_nicklist_remove_group)
 {
     char *buffer, *group;
@@ -4160,10 +3543,6 @@ XS (XS_weechat_api_nicklist_remove_group)
     API_RETURN_OK;
 }
 
-/*
- * weechat::nicklist_remove_nick: remove a nick from nicklist
- */
-
 XS (XS_weechat_api_nicklist_remove_nick)
 {
     char *buffer, *nick;
@@ -4182,10 +3561,6 @@ XS (XS_weechat_api_nicklist_remove_nick)
     API_RETURN_OK;
 }
 
-/*
- * weechat::nicklist_remove_all: remove all groups/nicks from nicklist
- */
-
 XS (XS_weechat_api_nicklist_remove_all)
 {
     dXSARGS;
@@ -4199,10 +3574,6 @@ XS (XS_weechat_api_nicklist_remove_all)
     API_RETURN_OK;
 }
 
-/*
- * weechat::nicklist_group_get_integer: get a group property as integer
- */
-
 XS (XS_weechat_api_nicklist_group_get_integer)
 {
     char *buffer, *group, *property;
@@ -4224,10 +3595,6 @@ XS (XS_weechat_api_nicklist_group_get_integer)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::nicklist_group_get_string: get a group property as string
- */
-
 XS (XS_weechat_api_nicklist_group_get_string)
 {
     char *buffer, *group, *property;
@@ -4249,10 +3616,6 @@ XS (XS_weechat_api_nicklist_group_get_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::nicklist_group_get_pointer: get a group property as pointer
- */
-
 XS (XS_weechat_api_nicklist_group_get_pointer)
 {
     char *result, *buffer, *group, *property;
@@ -4273,10 +3636,6 @@ XS (XS_weechat_api_nicklist_group_get_pointer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::nicklist_group_set: set a group property
- */
-
 XS (XS_weechat_api_nicklist_group_set)
 {
     char *buffer, *group, *property, *value;
@@ -4299,10 +3658,6 @@ XS (XS_weechat_api_nicklist_group_set)
     API_RETURN_OK;
 }
 
-/*
- * weechat::nicklist_nick_get_integer: get a nick property as integer
- */
-
 XS (XS_weechat_api_nicklist_nick_get_integer)
 {
     char *buffer, *nick, *property;
@@ -4324,10 +3679,6 @@ XS (XS_weechat_api_nicklist_nick_get_integer)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::nicklist_nick_get_string: get a nick property as string
- */
-
 XS (XS_weechat_api_nicklist_nick_get_string)
 {
     char *buffer, *nick, *property;
@@ -4349,10 +3700,6 @@ XS (XS_weechat_api_nicklist_nick_get_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::nicklist_nick_get_pointer: get a nick property as pointer
- */
-
 XS (XS_weechat_api_nicklist_nick_get_pointer)
 {
     char *result, *buffer, *nick, *property;
@@ -4373,10 +3720,6 @@ XS (XS_weechat_api_nicklist_nick_get_pointer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::nicklist_nick_set: set a nick property
- */
-
 XS (XS_weechat_api_nicklist_nick_set)
 {
     char *buffer, *nick, *property, *value;
@@ -4399,10 +3742,6 @@ XS (XS_weechat_api_nicklist_nick_set)
     API_RETURN_OK;
 }
 
-/*
- * weechat::bar_item_search: search a bar item
- */
-
 XS (XS_weechat_api_bar_item_search)
 {
     char *result;
@@ -4417,10 +3756,6 @@ XS (XS_weechat_api_bar_item_search)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat_perl_api_bar_item_build_cb: callback for building bar item
- */
-
 char *
 weechat_perl_api_bar_item_build_cb (void *data, struct t_gui_bar_item *item,
                                     struct t_gui_window *window)
@@ -4453,10 +3788,6 @@ weechat_perl_api_bar_item_build_cb (void *data, struct t_gui_bar_item *item,
     return NULL;
 }
 
-/*
- * weechat::bar_item_new: add a new bar item
- */
-
 XS (XS_weechat_api_bar_item_new)
 {
     char *result, *name, *function, *data;
@@ -4480,10 +3811,6 @@ XS (XS_weechat_api_bar_item_new)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::bar_item_update: update a bar item on screen
- */
-
 XS (XS_weechat_api_bar_item_update)
 {
     dXSARGS;
@@ -4497,10 +3824,6 @@ XS (XS_weechat_api_bar_item_update)
     API_RETURN_OK;
 }
 
-/*
- * weechat::bar_item_remove: remove a bar item
- */
-
 XS (XS_weechat_api_bar_item_remove)
 {
     dXSARGS;
@@ -4516,10 +3839,6 @@ XS (XS_weechat_api_bar_item_remove)
     API_RETURN_OK;
 }
 
-/*
- * weechat::bar_search: search a bar
- */
-
 XS (XS_weechat_api_bar_search)
 {
     char *result;
@@ -4534,10 +3853,6 @@ XS (XS_weechat_api_bar_search)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::bar_new: add a new bar
- */
-
 XS (XS_weechat_api_bar_new)
 {
     char *result, *name, *hidden, *priority, *type, *conditions, *position;
@@ -4584,10 +3899,6 @@ XS (XS_weechat_api_bar_new)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::bar_set: set a bar property
- */
-
 XS (XS_weechat_api_bar_set)
 {
     char *bar, *property, *value;
@@ -4606,10 +3917,6 @@ XS (XS_weechat_api_bar_set)
     API_RETURN_OK;
 }
 
-/*
- * weechat::bar_update: update a bar on screen
- */
-
 XS (XS_weechat_api_bar_update)
 {
     dXSARGS;
@@ -4623,10 +3930,6 @@ XS (XS_weechat_api_bar_update)
     API_RETURN_OK;
 }
 
-/*
- * weechat::bar_remove: remove a bar
- */
-
 XS (XS_weechat_api_bar_remove)
 {
     dXSARGS;
@@ -4640,10 +3943,6 @@ XS (XS_weechat_api_bar_remove)
     API_RETURN_OK;
 }
 
-/*
- * weechat::command: execute a command on a buffer
- */
-
 XS (XS_weechat_api_command)
 {
     char *buffer, *command;
@@ -4664,10 +3963,6 @@ XS (XS_weechat_api_command)
     API_RETURN_OK;
 }
 
-/*
- * weechat::info_get: get info (as string)
- */
-
 XS (XS_weechat_api_info_get)
 {
     char *info_name, *arguments;
@@ -4686,10 +3981,6 @@ XS (XS_weechat_api_info_get)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::info_get_hashtable: get info (as hashtable)
- */
-
 XS (XS_weechat_api_info_get_hashtable)
 {
     char *info_name;
@@ -4718,10 +4009,6 @@ XS (XS_weechat_api_info_get_hashtable)
     API_RETURN_OBJ(result_hash);
 }
 
-/*
- * weechat::infolist_new: create new infolist
- */
-
 XS (XS_weechat_api_infolist_new)
 {
     char *result;
@@ -4738,10 +4025,6 @@ XS (XS_weechat_api_infolist_new)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_new_item: create new item in infolist
- */
-
 XS (XS_weechat_api_infolist_new_item)
 {
     char *infolist, *result;
@@ -4758,10 +4041,6 @@ XS (XS_weechat_api_infolist_new_item)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_new_var_integer: create new integer variable in infolist
- */
-
 XS (XS_weechat_api_infolist_new_var_integer)
 {
     char *infolist, *name, *result;
@@ -4781,10 +4060,6 @@ XS (XS_weechat_api_infolist_new_var_integer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_new_var_string: create new string variable in infolist
- */
-
 XS (XS_weechat_api_infolist_new_var_string)
 {
     char *infolist, *name, *value, *result;
@@ -4805,10 +4080,6 @@ XS (XS_weechat_api_infolist_new_var_string)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_new_var_pointer: create new pointer variable in infolist
- */
-
 XS (XS_weechat_api_infolist_new_var_pointer)
 {
     char *infolist, *name, *value, *result;
@@ -4829,10 +4100,6 @@ XS (XS_weechat_api_infolist_new_var_pointer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_new_var_time: create new time variable in infolist
- */
-
 XS (XS_weechat_api_infolist_new_var_time)
 {
     char *infolist, *name, *result;
@@ -4852,10 +4119,6 @@ XS (XS_weechat_api_infolist_new_var_time)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_get: get list with infos
- */
-
 XS (XS_weechat_api_infolist_get)
 {
     char *result, *name, *pointer, *arguments;
@@ -4876,10 +4139,6 @@ XS (XS_weechat_api_infolist_get)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_next: move item pointer to next item in infolist
- */
-
 XS (XS_weechat_api_infolist_next)
 {
     int value;
@@ -4894,10 +4153,6 @@ XS (XS_weechat_api_infolist_next)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::infolist_prev: move item pointer to previous item in infolist
- */
-
 XS (XS_weechat_api_infolist_prev)
 {
     int value;
@@ -4912,11 +4167,6 @@ XS (XS_weechat_api_infolist_prev)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::infolist_reset_item_cursor: reset pointer to current item in
- *                                      infolist
- */
-
 XS (XS_weechat_api_infolist_reset_item_cursor)
 {
     dXSARGS;
@@ -4930,10 +4180,6 @@ XS (XS_weechat_api_infolist_reset_item_cursor)
     API_RETURN_OK;
 }
 
-/*
- * weechat::infolist_fields: get list of fields for current item of infolist
- */
-
 XS (XS_weechat_api_infolist_fields)
 {
     const char *result;
@@ -4948,10 +4194,6 @@ XS (XS_weechat_api_infolist_fields)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::infolist_integer: get integer value of a variable in infolist
- */
-
 XS (XS_weechat_api_infolist_integer)
 {
     char *infolist, *variable;
@@ -4970,10 +4212,6 @@ XS (XS_weechat_api_infolist_integer)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::infolist_string: get string value of a variable in infolist
- */
-
 XS (XS_weechat_api_infolist_string)
 {
     char *infolist, *variable;
@@ -4992,10 +4230,6 @@ XS (XS_weechat_api_infolist_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::infolist_pointer: get pointer value of a variable in infolist
- */
-
 XS (XS_weechat_api_infolist_pointer)
 {
     char *infolist, *variable;
@@ -5014,10 +4248,6 @@ XS (XS_weechat_api_infolist_pointer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_time: get time value of a variable in infolist
- */
-
 XS (XS_weechat_api_infolist_time)
 {
     time_t time;
@@ -5042,10 +4272,6 @@ XS (XS_weechat_api_infolist_time)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::infolist_free: free infolist
- */
-
 XS (XS_weechat_api_infolist_free)
 {
     dXSARGS;
@@ -5059,10 +4285,6 @@ XS (XS_weechat_api_infolist_free)
     API_RETURN_OK;
 }
 
-/*
- * weechat::hdata_get: get hdata
- */
-
 XS (XS_weechat_api_hdata_get)
 {
     char *result, *name;
@@ -5079,10 +4301,6 @@ XS (XS_weechat_api_hdata_get)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hdata_get_var_offset: get offset of variable in hdata
- */
-
 XS (XS_weechat_api_hdata_get_var_offset)
 {
     char *hdata, *name;
@@ -5101,10 +4319,6 @@ XS (XS_weechat_api_hdata_get_var_offset)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::hdata_get_var_type_string: get type of variable as string in hdata
- */
-
 XS (XS_weechat_api_hdata_get_var_type_string)
 {
     const char *result;
@@ -5123,10 +4337,6 @@ XS (XS_weechat_api_hdata_get_var_type_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::hdata_get_var_array_size: get array size for variable in hdata
- */
-
 XS (XS_weechat_api_hdata_get_var_array_size)
 {
     char *hdata, *pointer, *name;
@@ -5148,11 +4358,6 @@ XS (XS_weechat_api_hdata_get_var_array_size)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::hdata_get_var_array_size_string: get array size for variable in
- *                                           hdata (as string)
- */
-
 XS (XS_weechat_api_hdata_get_var_array_size_string)
 {
     const char *result;
@@ -5174,10 +4379,6 @@ XS (XS_weechat_api_hdata_get_var_array_size_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::hdata_get_var_hdata: get hdata for variable in hdata
- */
-
 XS (XS_weechat_api_hdata_get_var_hdata)
 {
     const char *result;
@@ -5196,10 +4397,6 @@ XS (XS_weechat_api_hdata_get_var_hdata)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::hdata_get_list: get list pointer in hdata
- */
-
 XS (XS_weechat_api_hdata_get_list)
 {
     char *hdata, *name;
@@ -5219,10 +4416,6 @@ XS (XS_weechat_api_hdata_get_list)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hdata_check_pointer: check pointer with hdata/list
- */
-
 XS (XS_weechat_api_hdata_check_pointer)
 {
     char *hdata, *list, *pointer;
@@ -5244,10 +4437,6 @@ XS (XS_weechat_api_hdata_check_pointer)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::hdata_move: move pointer to another element in list
- */
-
 XS (XS_weechat_api_hdata_move)
 {
     char *result, *hdata, *pointer;
@@ -5269,10 +4458,6 @@ XS (XS_weechat_api_hdata_move)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hdata_char: get char value of a variable in structure using hdata
- */
-
 XS (XS_weechat_api_hdata_char)
 {
     char *hdata, *pointer, *name;
@@ -5294,11 +4479,6 @@ XS (XS_weechat_api_hdata_char)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::hdata_integer: get integer value of a variable in structure using
- *                         hdata
- */
-
 XS (XS_weechat_api_hdata_integer)
 {
     char *hdata, *pointer, *name;
@@ -5320,10 +4500,6 @@ XS (XS_weechat_api_hdata_integer)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::hdata_long: get long value of a variable in structure using hdata
- */
-
 XS (XS_weechat_api_hdata_long)
 {
     char *hdata, *pointer, *name;
@@ -5345,11 +4521,6 @@ XS (XS_weechat_api_hdata_long)
     API_RETURN_LONG(value);
 }
 
-/*
- * weechat::hdata_string: get string value of a variable in structure using
- *                        hdata
- */
-
 XS (XS_weechat_api_hdata_string)
 {
     char *hdata, *pointer, *name;
@@ -5371,11 +4542,6 @@ XS (XS_weechat_api_hdata_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::hdata_pointer: get pointer value of a variable in structure using
- *                         hdata
- */
-
 XS (XS_weechat_api_hdata_pointer)
 {
     char *hdata, *pointer, *name;
@@ -5397,10 +4563,6 @@ XS (XS_weechat_api_hdata_pointer)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hdata_time: get time value of a variable in structure using hdata
- */
-
 XS (XS_weechat_api_hdata_time)
 {
     time_t time;
@@ -5425,11 +4587,6 @@ XS (XS_weechat_api_hdata_time)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::hdata_hashtable: get hashtable value of a variable in structure
- *                           using hdata
- */
-
 XS (XS_weechat_api_hdata_hashtable)
 {
     char *hdata, *pointer, *name;
@@ -5452,10 +4609,6 @@ XS (XS_weechat_api_hdata_hashtable)
     API_RETURN_OBJ(result_hash);
 }
 
-/*
- * weechat::hdata_update: update data in a hdata
- */
-
 XS (XS_weechat_api_hdata_update)
 {
     char *hdata, *pointer;
@@ -5484,10 +4637,6 @@ XS (XS_weechat_api_hdata_update)
     API_RETURN_INT(value);
 }
 
-/*
- * weechat::hdata_get_string: get hdata property as string
- */
-
 XS (XS_weechat_api_hdata_get_string)
 {
     char *hdata, *property;
@@ -5506,10 +4655,6 @@ XS (XS_weechat_api_hdata_get_string)
     API_RETURN_STRING(result);
 }
 
-/*
- * weechat::upgrade_new: create an upgrade file
- */
-
 XS (XS_weechat_api_upgrade_new)
 {
     char *result, *filename;
@@ -5527,10 +4672,6 @@ XS (XS_weechat_api_upgrade_new)
     API_RETURN_STRING_FREE(result);
 }
 
-/*
- * weechat::upgrade_write_object: write object in upgrade file
- */
-
 XS (XS_weechat_api_upgrade_write_object)
 {
     char *upgrade_file, *infolist;
@@ -5551,10 +4692,6 @@ XS (XS_weechat_api_upgrade_write_object)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat_perl_api_upgrade_read_cb: callback for reading object in upgrade file
- */
-
 int
 weechat_perl_api_upgrade_read_cb (void *data,
                                   struct t_upgrade_file *upgrade_file,
@@ -5600,10 +4737,6 @@ weechat_perl_api_upgrade_read_cb (void *data,
     return WEECHAT_RC_ERROR;
 }
 
-/*
- * weechat::config_upgrade_read: read upgrade file
- */
-
 XS (XS_weechat_api_upgrade_read)
 {
     char *upgrade_file, *function, *data;
@@ -5628,10 +4761,6 @@ XS (XS_weechat_api_upgrade_read)
     API_RETURN_INT(rc);
 }
 
-/*
- * weechat::upgrade_close: close upgrade file
- */
-
 XS (XS_weechat_api_upgrade_close)
 {
     char *upgrade_file;
@@ -5649,7 +4778,7 @@ XS (XS_weechat_api_upgrade_close)
 }
 
 /*
- * weechat_perl_api_init: initialize subroutines
+ * Initializes perl functions and constants.
  */
 
 void
diff --git a/src/plugins/perl/weechat-perl.c b/src/plugins/perl/weechat-perl.c
index 63ab186bd..c4c67ba08 100644
--- a/src/plugins/perl/weechat-perl.c
+++ b/src/plugins/perl/weechat-perl.c
@@ -127,8 +127,7 @@ char *perl_weechat_code =
 
 
 /*
- * weechat_perl_hashtable_map_cb: callback called for each key/value in a
- *                                hashtable
+ * Callback called for each key/value in a hashtable.
  */
 
 void
@@ -148,7 +147,7 @@ weechat_perl_hashtable_map_cb (void *data,
 }
 
 /*
- * weechat_perl_hashtable_to_hash: get perl hash with a WeeChat hashtable
+ * Gets perl hash with a WeeChat hashtable.
  */
 
 HV *
@@ -168,9 +167,9 @@ weechat_perl_hashtable_to_hash (struct t_hashtable *hashtable)
 }
 
 /*
- * weechat_perl_hash_to_hashtable: get WeeChat hashtable with perl hash
- *                                 Note: hashtable has to be released after use
- *                                 with call to weechat_hashtable_free()
+ * Gets WeeChat hashtable with perl hash.
+ *
+ * Note: hashtable must be freed after use.
  */
 
 struct t_hashtable *
@@ -213,7 +212,7 @@ weechat_perl_hash_to_hashtable (SV *hash, int size, const char *type_keys,
 }
 
 /*
- * weechat_perl_exec: execute a perl function
+ * Executes a perl function.
  */
 
 void *
@@ -363,7 +362,11 @@ weechat_perl_exec (struct t_plugin_script *script,
 }
 
 /*
- * weechat_perl_load: load a Perl script
+ * Loads a perl script.
+ *
+ * Returns:
+ *   1: OK
+ *   0: error
  */
 
 int
@@ -547,7 +550,7 @@ weechat_perl_load (const char *filename)
 }
 
 /*
- * weechat_perl_load_cb: callback for weechat_script_auto_load() function
+ * Callback for weechat_script_auto_load() function.
  */
 
 void
@@ -560,7 +563,7 @@ weechat_perl_load_cb (void *data, const char *filename)
 }
 
 /*
- * weechat_perl_unload: unload a Perl script
+ * Unloads a perl script.
  */
 
 void
@@ -623,7 +626,7 @@ weechat_perl_unload (struct t_plugin_script *script)
 }
 
 /*
- * weechat_perl_unload_name: unload a Perl script by name
+ * Unloads a perl script by name.
  */
 
 void
@@ -651,7 +654,7 @@ weechat_perl_unload_name (const char *name)
 }
 
 /*
- * weechat_perl_unload_all: unload all Perl scripts
+ * Unloads all perl scripts.
  */
 
 void
@@ -664,7 +667,7 @@ weechat_perl_unload_all ()
 }
 
 /*
- * weechat_perl_reload_name: reload a Perl script by name
+ * Reloads a perl script by name.
  */
 
 void
@@ -699,7 +702,7 @@ weechat_perl_reload_name (const char *name)
 }
 
 /*
- * weechat_perl_command_cb: callback for "/perl" command
+ * Callback for command "/perl".
  */
 
 int
@@ -771,7 +774,7 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
             }
             if (weechat_strcasecmp (argv[1], "load") == 0)
             {
-                /* load Perl script */
+                /* load perl script */
                 path_script = plugin_script_search_path (weechat_perl_plugin,
                                                          ptr_name);
                 weechat_perl_load ((path_script) ? path_script : ptr_name);
@@ -780,12 +783,12 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
             }
             else if (weechat_strcasecmp (argv[1], "reload") == 0)
             {
-                /* reload one Perl script */
+                /* reload one perl script */
                 weechat_perl_reload_name (ptr_name);
             }
             else if (weechat_strcasecmp (argv[1], "unload") == 0)
             {
-                /* unload Perl script */
+                /* unload perl script */
                 weechat_perl_unload_name (ptr_name);
             }
             perl_quiet = 0;
@@ -803,7 +806,7 @@ weechat_perl_command_cb (void *data, struct t_gui_buffer *buffer,
 }
 
 /*
- * weechat_perl_completion_cb: callback for script completion
+ * Adds perl scripts to completion list.
  */
 
 int
@@ -822,7 +825,7 @@ weechat_perl_completion_cb (void *data, const char *completion_item,
 }
 
 /*
- * weechat_perl_hdata_cb: callback for hdata
+ * Returns hdata for perl scripts.
  */
 
 struct t_hdata *
@@ -837,7 +840,7 @@ weechat_perl_hdata_cb (void *data, const char *hdata_name)
 }
 
 /*
- * weechat_perl_infolist_cb: callback for infolist
+ * Returns infolist with perl scripts.
  */
 
 struct t_infolist *
@@ -861,7 +864,7 @@ weechat_perl_infolist_cb (void *data, const char *infolist_name,
 }
 
 /*
- * weechat_perl_signal_debug_dump_cb: dump Perl plugin data in WeeChat log file
+ * Dumps perl plugin data in WeeChat log file.
  */
 
 int
@@ -883,7 +886,7 @@ weechat_perl_signal_debug_dump_cb (void *data, const char *signal,
 }
 
 /*
- * weechat_perl_signal_buffer_closed_cb: callback called when a buffer is closed
+ * Callback called when a buffer is closed.
  */
 
 int
@@ -902,7 +905,7 @@ weechat_perl_signal_buffer_closed_cb (void *data, const char *signal,
 }
 
 /*
- * weechat_perl_timer_action_cb: timer for executing actions
+ * Timer for executing actions.
  */
 
 int
@@ -936,8 +939,7 @@ weechat_perl_timer_action_cb (void *data, int remaining_calls)
 }
 
 /*
- * weechat_perl_signal_script_action_cb: callback called when a script action
- *                                       is asked (install/remove a script)
+ * Callback called when a script action is asked (install/remove a script).
  */
 
 int
@@ -972,8 +974,7 @@ weechat_perl_signal_script_action_cb (void *data, const char *signal,
 }
 
 /*
- * weechat_perl_signal_quit_upgrade_cb: callback called when exiting or
- *                                      upgrading WeeChat
+ * Callback called when exiting or upgrading WeeChat.
  */
 
 int
@@ -993,7 +994,7 @@ weechat_perl_signal_quit_upgrade_cb (void *data, const char *signal,
 }
 
 /*
- * weechat_plugin_init: initialize Perl plugin
+ * Initializes perl plugin.
  */
 
 int
@@ -1056,7 +1057,7 @@ weechat_plugin_init (struct t_weechat_plugin *plugin, int argc, char *argv[])
 }
 
 /*
- * weechat_plugin_end: end Perl plugin
+ * Ends perl plugin.
  */
 
 int