diff options
author | Timo Sirainen <cras@irssi.org> | 2002-04-16 19:51:44 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-04-16 19:51:44 +0000 |
commit | 9b74ba4e5cbebf47232bfa46295f29f90cf5ecf4 (patch) | |
tree | d1be165fe092b23b72875564eb194fe9d20db804 | |
parent | c7320514aaf0e97b4a628fec301fd9c4d1fe2a7d (diff) | |
download | irssi-9b74ba4e5cbebf47232bfa46295f29f90cf5ecf4.zip |
fix
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2692 dbcabf3a-b0e7-0310-adc4-f8d773084564
-rw-r--r-- | src/perl/common/Core.xs | 23 |
1 files changed, 22 insertions, 1 deletions
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 |