diff options
Diffstat (limited to 'src/perl')
-rw-r--r-- | src/perl/perl-common.c | 2 | ||||
-rw-r--r-- | src/perl/perl-signals.c | 2 | ||||
-rw-r--r-- | src/perl/perl-signals.h | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/perl/perl-common.c b/src/perl/perl-common.c index 1fbd000b..0a8a5d92 100644 --- a/src/perl/perl-common.c +++ b/src/perl/perl-common.c @@ -629,7 +629,7 @@ static void perl_register_protocol(CHAT_PROTOCOL_REC *rec) perl_eval_pv(code, TRUE); } - pcode = g_strdup_printf(find_use_code, + pcode = g_strdup_printf(find_use_code, settings_get_str("perl_use_lib"), name); sv = perl_eval_pv(pcode, TRUE); g_free(pcode); diff --git a/src/perl/perl-signals.c b/src/perl/perl-signals.c index be4a9a5d..1f602c66 100644 --- a/src/perl/perl-signals.c +++ b/src/perl/perl-signals.c @@ -475,7 +475,7 @@ void perl_command_bind_to(const char *cmd, const char *category, g_free(signal); } -void perl_command_runsub(const char *cmd, const char *data, +void perl_command_runsub(const char *cmd, const char *data, SERVER_REC *server, WI_ITEM_REC *item) { command_runsub(cmd, data, server, item); diff --git a/src/perl/perl-signals.h b/src/perl/perl-signals.h index e2c3db61..78a95bed 100644 --- a/src/perl/perl-signals.h +++ b/src/perl/perl-signals.h @@ -21,7 +21,7 @@ void perl_command_bind_to(const char *cmd, const char *category, void perl_command_unbind(const char *cmd, SV *func); -void perl_command_runsub(const char *cmd, const char *data, +void perl_command_runsub(const char *cmd, const char *data, SERVER_REC *server, WI_ITEM_REC *item); void perl_signal_register(const char *signal, const char **args); |