| … | |
… | |
| 20 | const char * T_PVbyte |
20 | const char * T_PVbyte |
| 21 | |
21 | |
| 22 | INPUT |
22 | INPUT |
| 23 | |
23 | |
| 24 | T_SIGNAL |
24 | T_SIGNAL |
| 25 | if (($var = sv_signum ($arg)) <= 0) |
25 | if (($var = s_signum_croak ($arg)) <= 0) |
| 26 | croak (\"'%s' is not a valid signal number or name\", SvPV_nolen ($arg)); |
26 | croak (\"'%s' is not a valid signal number or name\", SvPV_nolen ($arg)); |
| 27 | |
27 | |
| 28 | T_PVbyte |
28 | T_PVbyte |
| 29 | $var = ($type)SvPVbyte_nolen ($arg) |
29 | $var = ($type)SvPVbyte_nolen ($arg) |
| 30 | |
30 | |
| 31 | T_LOOP |
31 | T_LOOP |
| 32 | if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) |
32 | if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) |
| 33 | && (SvSTASH (SvRV ($arg)) == stash_loop))) |
33 | && (SvSTASH (SvRV ($arg)) == stash_loop || sv_derived_from ($arg, \"EV::Loop\")))) |
| 34 | croak (\"object is not of type EV::Loop\"); |
34 | croak (\"object is not of type EV::Loop\"); |
| 35 | $var = ($type)SvIVX (SvRV ($arg)); |
35 | $var = ($type)SvIVX (SvRV ($arg)); |
| 36 | |
36 | |
| 37 | T_WATCHER |
37 | T_WATCHER |
| 38 | if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) |
38 | if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) |
