diff options
Diffstat (limited to 'src/perl/common/Core.xs')
-rw-r--r-- | src/perl/common/Core.xs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs index 52b3a0b7..dab69e94 100644 --- a/src/perl/common/Core.xs +++ b/src/perl/common/Core.xs @@ -318,12 +318,11 @@ PPCODE: } void -command_bind(cmd, category, func) +command_bind(cmd, func, category = "Perl scripts' commands") char *cmd char *category char *func CODE: - if (*category == '\0') category = "Perl scripts' commands"; perl_command_bind(cmd, category, func); void |