From e4aa149c54e7e5033be77c17ea2893164e00deb3 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Mon, 21 Jan 2002 19:20:08 +0000
Subject: [PATCH] Irssi::signal_add_first() and .._last() allows hashes now.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2334 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Core.xs | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index ea47e684..6cebd27c 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -50,24 +50,20 @@ CODE:
 		perl_signal_add_hash(1, ST(0));
 
 void
-signal_add_first(signal, func)
-	char *signal
-	SV *func
+signal_add_first(...)
 CODE:
 	if (items != 1 && items != 2)
-		croak("Usage: Irssi::signal_add(signal, func)");
+		croak("Usage: Irssi::signal_add_first(signal, func)");
 	if (items == 2)
 		perl_signal_add_first((char *)SvPV(ST(0),PL_na), ST(1));
 	else
 		perl_signal_add_hash(0, ST(0));
 
 void
-signal_add_last(signal, func)
-	char *signal
-	SV *func
+signal_add_last(...)
 CODE:
 	if (items != 1 && items != 2)
-		croak("Usage: Irssi::signal_add(signal, func)");
+		croak("Usage: Irssi::signal_add_last(signal, func)");
 	if (items == 2)
 		perl_signal_add_last((char *)SvPV(ST(0),PL_na), ST(1));
 	else