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