diff options
Diffstat (limited to 'src/perl/common')
-rw-r--r-- | src/perl/common/Core.xs | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index e69b5a50..6c04cc9d 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -316,6 +316,14 @@ PPCODE: } void +command_bind_first(cmd, func, category = "Perl scripts' commands") + char *cmd + char *category + char *func +CODE: + perl_command_bind_first(cmd, category, func); + +void command_bind(cmd, func, category = "Perl scripts' commands") char *cmd char *category @@ -324,6 +332,14 @@ CODE: perl_command_bind(cmd, category, func); void +command_bind_last(cmd, func, category = "Perl scripts' commands") + char *cmd + char *category + char *func +CODE: + perl_command_bind_last(cmd, category, func); + +void command_runsub(cmd, data, server, item) char *cmd char *data |