… | … | ||
---|---|---|---|
326 | static HV *last_stash; | 326 | static HV *last_stash; |
327 | static SV *last_res; | 327 | static SV *last_res; |
328 | 328 | ||
329 | SV *obj = *(PL_stack_base + TOPMARK + 1); | 329 | SV *obj = *(PL_stack_base + TOPMARK + 1); |
330 | 330 | ||
331 | printf ("todo: PL_subgeneration or somesuch\\n"); | ||
331 | if (SvROK (obj) && SvOBJECT (SvRV (obj))) | 332 | if (SvROK (obj) && SvOBJECT (SvRV (obj))) |
332 | { | 333 | { |
333 | dSP; | 334 | dSP; |
334 | HV *stash = SvSTASH (SvRV (obj)); | 335 | HV *stash = SvSTASH (SvRV (obj)); |
335 | 336 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |