| … | |
… | |
| 96 | |
96 | |
| 97 | ref $arg{cb} |
97 | ref $arg{cb} |
| 98 | or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; |
98 | or croak "AnyEvent->signal called with illegal cb argument '$arg{cb}'"; |
| 99 | delete $arg{cb}; |
99 | delete $arg{cb}; |
| 100 | |
100 | |
| 101 | defined AnyEvent::Base::sig2num $arg{signal} |
101 | defined AnyEvent::Base::sig2num $arg{signal} and $arg{signal} == 0 |
| 102 | or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; |
102 | or croak "AnyEvent->signal called with illegal signal name '$arg{signal}'"; |
| 103 | delete $arg{signal}; |
103 | delete $arg{signal}; |
| 104 | |
104 | |
| 105 | croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg |
105 | croak "AnyEvent->signal called with unsupported parameter(s) " . join ", ", keys %arg |
| 106 | if keys %arg; |
106 | if keys %arg; |
