… | |
… | |
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)) |