Irssi::signal_add(), Irssi::timeout_add(), Irssi::input_add() and their

variants now also allow use of code references.


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2199 dbcabf3a-b0e7-0310-adc4-f8d773084564

1 files changed, 10 insertions, 10 deletions

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index 572fa52b..4edde30c 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -27,28 +27,28 @@ CODE:
 void
 signal_add(signal, func)
 	char *signal
-	char *func
+	SV *func
 CODE:
 	perl_signal_add(signal, func);
 
 void
 signal_add_first(signal, func)
 	char *signal
-	char *func
+	SV *func
 CODE:
 	perl_signal_add_first(signal, func);
 
 void
 signal_add_last(signal, func)
 	char *signal
-	char *func
+	SV *func
 CODE:
 	perl_signal_add_last(signal, func);
 
 void
 signal_remove(signal, func)
 	char *signal
-	char *func
+	SV *func
 CODE:
 	perl_signal_remove(signal, func);
 
@@ -72,7 +72,7 @@ signal_get_emitted_id()
 int
 timeout_add(msecs, func, data)
 	int msecs
-	char *func
+	SV *func
 	void *data
 CODE:
 	RETVAL = perl_timeout_add(msecs, func, ST(2));
@@ -104,7 +104,7 @@ int
 input_add(source, condition, func, data)
 	int source
 	int condition
-	char *func
+	SV *func
 	void *data
 CODE:
 	RETVAL = perl_input_add(source, condition, func, ST(2));
@@ -333,7 +333,7 @@ void
 command_bind_first(cmd, func, category = "Perl scripts' commands")
 	char *cmd
 	char *category
-	char *func
+	SV *func
 CODE:
 	perl_command_bind_first(cmd, category, func);
 
@@ -341,7 +341,7 @@ void
 command_bind(cmd, func, category = "Perl scripts' commands")
 	char *cmd
 	char *category
-	char *func
+	SV *func
 CODE:
 	perl_command_bind(cmd, category, func);
 
@@ -349,7 +349,7 @@ void
 command_bind_last(cmd, func, category = "Perl scripts' commands")
 	char *cmd
 	char *category
-	char *func
+	SV *func
 CODE:
 	perl_command_bind_last(cmd, category, func);
 
@@ -365,7 +365,7 @@ CODE:
 void
 command_unbind(cmd, func)
 	char *cmd
-	char *func
+	SV *func
 CODE:
 	perl_command_unbind(cmd, func);