aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2024-12-04 14:46:39 -05:00
Code

fix

Browse Source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2692 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-04-16 19:51:44 +00:00 committed by cras
parent c7320514aa
commit 9b74ba4e5c
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/perl/common/Core.xs
View File

@ -15,7 +15,7 @@ void perl_signal_add_hash(int priority, SV *sv)
hv = hvref(sv); hv = hvref(sv);
hv_iterinit(hv); hv_iterinit(hv);
while ((he = hv_iternext(hv)) != NULL) 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) static void perl_command_bind_add_hash(int priority, SV *sv, char *category)
@ -119,6 +119,27 @@ CODE:
else else
perl_signal_add_hash(SvIV(ST(0)), ST(1)); 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 void
signal_remove(signal, func) signal_remove(signal, func)
char *signal char *signal