diff options
Diffstat (limited to 'src/perl/common/Core.xs')
| -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 |