… | |
… | |
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); |
… | |
… | |
3442 | GvSTASH (CvGV (cv)) |
3442 | GvSTASH (CvGV (cv)) |
3443 | ); |
3443 | ); |
3444 | OUTPUT: |
3444 | OUTPUT: |
3445 | RETVAL |
3445 | RETVAL |
3446 | |
3446 | |
3447 | # helper for Coro::Channel |
3447 | # helper for Coro::Channel and others |
3448 | SV * |
3448 | SV * |
3449 | _alloc (int count) |
3449 | _alloc (int count) |
3450 | CODE: |
3450 | CODE: |
3451 | RETVAL = coro_waitarray_new (aTHX_ count); |
3451 | RETVAL = coro_waitarray_new (aTHX_ count); |
3452 | OUTPUT: |
3452 | OUTPUT: |