summaryrefslogtreecommitdiff
path: root/src/perl/irc
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2001-11-15 00:04:16 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2001-11-15 00:04:16 +0000
commit179faf041620d58d34649e80c6afd15153146a59 (patch)
treeaa127e083416eb466d57f67873ea62206e5a667c /src/perl/irc
parentda6170d4d7d750dab9de8ee2d165a40acfd43183 (diff)
downloadirssi-179faf041620d58d34649e80c6afd15153146a59.zip
redirect_event() didn't give the correct parameter to event_hash2list().
Changed void* parameters -> SV* and using them directly instead of ST(x). git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2011 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irc')
-rw-r--r--src/perl/irc/Server.xs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs
index c245ba03..df04e181 100644
--- a/src/perl/irc/Server.xs
+++ b/src/perl/irc/Server.xs
@@ -85,12 +85,12 @@ server_redirect_register(command, remote, timeout, start, stop)
char *command
int remote
int timeout
- void *start
- void *stop
+ SV *start
+ SV *stop
CODE:
server_redirect_register_list(command, remote, timeout,
- register_hash2list(hvref(ST(3))),
- register_hash2list(hvref(ST(4))));
+ register_hash2list(hvref(start)),
+ register_hash2list(hvref(stop)));
void
server_redirect_event(server, command, count, arg, remote, failure_signal, signals)
@@ -100,11 +100,11 @@ server_redirect_event(server, command, count, arg, remote, failure_signal, signa
char *arg
int remote
char *failure_signal
- void *signals
+ SV *signals
CODE:
server_redirect_event_list(server, command, count, *arg == '\0' ? NULL : arg, remote,
*failure_signal == '\0' ? NULL : failure_signal,
- event_hash2list(hvref(ST(5))));
+ event_hash2list(hvref(signals)));
char *
server_redirect_get_signal(server, event, args)