… | |
… | |
65 | |
65 | |
66 | ref $arg{cb} |
66 | ref $arg{cb} |
67 | or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; |
67 | or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; |
68 | delete $arg{cb}; |
68 | delete $arg{cb}; |
69 | |
69 | |
70 | eval "require POSIX; defined &POSIX::SIG$arg{signal}" |
70 | eval "require POSIX; 0 < &POSIX::SIG$arg{signal}" |
71 | or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; |
71 | or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; |
72 | delete $arg{signal}; |
72 | delete $arg{signal}; |
73 | |
73 | |
74 | croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg |
74 | croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg |
75 | if keys %arg; |
75 | if keys %arg; |