… | … | ||
---|---|---|---|
3098 | if (ix) | 3098 | if (ix) |
3099 | eval_sv (coderef, 0); | 3099 | eval_sv (coderef, 0); |
3100 | else | 3100 | else |
3101 | call_sv (coderef, G_KEEPERR | G_EVAL | G_VOID | G_DISCARD); | 3101 | call_sv (coderef, G_KEEPERR | G_EVAL | G_VOID | G_DISCARD); |
3102 | 3102 | ||
3103 | POPSTACK; | ||
3103 | SPAGAIN; | 3104 | SPAGAIN; |
3104 | POPSTACK; | ||
3105 | 3105 | ||
3106 | if (current != coro) | 3106 | if (current != coro) |
3107 | { | 3107 | { |
3108 | PUTBACK; | 3108 | PUTBACK; |
3109 | save_perl (aTHX_ coro); | 3109 | save_perl (aTHX_ coro); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |