Unbinding commands didn't work properly

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1058 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 2 insertions, 11 deletions

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 7229cd4f..52b3a0b7 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -323,21 +323,12 @@ command_bind(cmd, category, func)
 	char *category
 	char *func
 CODE:
-	char *signal;
-
 	if (*category == '\0') category = "Perl scripts' commands";
-	command_bind(cmd, category, NULL);
-	signal = g_strconcat("command ", cmd, NULL);
-	perl_signal_add(signal, func);
-	g_free(signal);
+	perl_command_bind(cmd, category, func);
 
 void
 command_unbind(cmd, func)
 	char *cmd
 	char *func
 CODE:
-	char *signal;
-
-	signal = g_strconcat("command ", cmd, NULL);
-	perl_signal_remove(signal, func);
-	g_free(signal);
+	perl_command_unbind(cmd, func);