summary refs log tree commit diff stats
path: root/plugins/perl/perl.c
diff options
context:
space:
mode:
authorTingPing <tingping@tingping.se>2013-08-10 19:44:38 -0400
committerTingPing <tingping@tingping.se>2013-08-10 19:44:38 -0400
commit0b95c1c444fd87583ae87ea3c59e883b5bfbbd0e (patch)
tree6efeb9871254fa3a5c6071558c061a820287b83c /plugins/perl/perl.c
parent41c0c345cd45f01ec313de05aac7a1715ebd4476 (diff)
parent2917a83d7b5c8660d6eb518eb3d781faff32c3d3 (diff)
Merge branch 'pluginreload'
Diffstat (limited to 'plugins/perl/perl.c')
-rw-r--r--plugins/perl/perl.c9
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,