From 9b74ba4e5cbebf47232bfa46295f29f90cf5ecf4 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Tue, 16 Apr 2002 19:51:44 +0000
Subject: fix

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2692 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Core.xs | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

(limited to 'src/perl/common')

diff --git a/src/perl/common/Core.xs b/src/perl/common/Core.xs
index d997bd58..bd7d9fe2 100644
--- a/src/perl/common/Core.xs
+++ b/src/perl/common/Core.xs
@@ -15,7 +15,7 @@ void perl_signal_add_hash(int priority, SV *sv)
         hv = hvref(sv);
 	hv_iterinit(hv);
 	while ((he = hv_iternext(hv)) != NULL)
-                perl_signal_add_to(hv_iterkey(he, &len), HeVAL(he), priority);
+                perl_signal_add_full(hv_iterkey(he, &len), HeVAL(he), priority);
 }
 
 static void perl_command_bind_add_hash(int priority, SV *sv, char *category)
@@ -119,6 +119,27 @@ CODE:
 	else
 		perl_signal_add_hash(SvIV(ST(0)), ST(1));
 
+int
+SIGNAL_PRIORITY_LOW()
+CODE:
+	RETVAL = SIGNAL_PRIORITY_LOW;
+OUTPUT:
+	RETVAL
+
+int
+SIGNAL_PRIORITY_DEFAULT()
+CODE:
+	RETVAL = SIGNAL_PRIORITY_DEFAULT;
+OUTPUT:
+	RETVAL
+
+int
+SIGNAL_PRIORITY_HIGH()
+CODE:
+	RETVAL = SIGNAL_PRIORITY_HIGH;
+OUTPUT:
+	RETVAL
+
 void
 signal_remove(signal, func)
 	char *signal
-- 
cgit v1.2.3