diff options
| author | TingPing <tingping@tingping.se> | 2013-08-10 19:44:38 -0400 |
|---|---|---|
| committer | TingPing <tingping@tingping.se> | 2013-08-10 19:44:38 -0400 |
| commit | 0b95c1c444fd87583ae87ea3c59e883b5bfbbd0e (patch) | |
| tree | 6efeb9871254fa3a5c6071558c061a820287b83c /plugins/perl/perl.c | |
| parent | 41c0c345cd45f01ec313de05aac7a1715ebd4476 (diff) | |
| parent | 2917a83d7b5c8660d6eb518eb3d781faff32c3d3 (diff) | |
Merge branch 'pluginreload'
Diffstat (limited to 'plugins/perl/perl.c')
| -rw-r--r-- | plugins/perl/perl.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/plugins/perl/perl.c b/plugins/perl/perl.c index 732fd65c..abb66c5a 100644 --- a/plugins/perl/perl.c +++ b/plugins/perl/perl.c @@ -1520,7 +1520,7 @@ perl_command_unload (char *word[], char *word_eol[], void *userdata) } static int -perl_command_reload (char *word[], char *word_eol[], void *userdata) +perl_command_reload (char *word[], char *word_eol[], void *eat) { char *file = get_filename (word, word_eol); @@ -1529,7 +1529,10 @@ perl_command_reload (char *word[], char *word_eol[], void *userdata) return HEXCHAT_EAT_HEXCHAT; } - return HEXCHAT_EAT_HEXCHAT; + if (eat) + return HEXCHAT_EAT_HEXCHAT; + else + return HEXCHAT_EAT_NONE; } void @@ -1570,7 +1573,7 @@ hexchat_plugin_init (hexchat_plugin * plugin_handle, char **plugin_name, hexchat_hook_command (ph, "reload", HEXCHAT_PRI_NORM, perl_command_reload, 0, 0); hexchat_hook_command (ph, "pl_reload", HEXCHAT_PRI_NORM, perl_command_reload, 0, - 0); + (int*)1); hexchat_hook_command (ph, "unloadall", HEXCHAT_PRI_NORM, perl_command_unloadall, 0, 0); hexchat_hook_command (ph, "reloadall", HEXCHAT_PRI_NORM, |