--- Coro/Coro/State.xs 2008/11/20 03:10:30 1.312 +++ Coro/Coro/State.xs 2008/11/20 03:22:59 1.313 @@ -1762,15 +1762,11 @@ return 1; /* loop till we have invoke */ else { - int i, len; - hv_store (hv, "desc", sizeof ("desc") - 1, newSVpvn ("[async_pool]", sizeof ("[async_pool]") - 1), 0); coro->saved_deffh = SvREFCNT_inc_NN ((SV *)PL_defoutgv); - len = av_len (coro->invoke_av); - { dSP; XPUSHs (sv_2mortal (coro->invoke_cb)); coro->invoke_cb = 0; @@ -1843,7 +1839,6 @@ if (SvTYPE (SvRV (data)) != SVt_PVAV) { /* first call, set args */ - int i; AV *av = newAV (); SV *coro = SvRV (data); @@ -3093,7 +3088,7 @@ PUSHs (sv_Coro); PUSHs ((SV *)cv_pool_handler); PUTBACK; - call_sv (cv_coro_new, G_SCALAR); + call_sv ((SV *)cv_coro_new, G_SCALAR); SPAGAIN; hv = (HV *)SvREFCNT_inc_NN (SvRV (POPs)); @@ -3108,7 +3103,7 @@ coro->invoke_av = av; } - api_ready ((SV *)hv); + api_ready (aTHX_ (SV *)hv); if (GIMME_V != G_VOID) XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));