diff options
Diffstat (limited to 'src/perl/common/Core.xs')
-rw-r--r-- | src/perl/common/Core.xs | 13 |
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); |