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);