| … | … | ||
|---|---|---|---|
| 107 | SvREADONLY_on (priv); | 107 | SvREADONLY_on (priv); |
| 108 | 108 | ||
| 109 | w->callback = coro_std_cb; | 109 | w->callback = coro_std_cb; |
| 110 | w->ext_data = priv; | 110 | w->ext_data = priv; |
| 111 | 111 | ||
| 112 | { | ||
| 113 | SV *mob = newRV_noinc ((SV *)priv); | ||
| 112 | sv_magicext (SvRV (self), newRV_noinc ((SV *)priv), PERL_MAGIC_coro_event, 0, (char *)w, 0); | 114 | sv_magicext (SvRV (self), mob, PERL_MAGIC_coro_event, 0, (char *)w, 0); |
| 115 | SvREFCNT_dec (mob); /* sv_magicext increments the refcount */ | ||
| 116 | } | ||
| 113 | } | 117 | } |
| 114 | } | 118 | } |
| 115 | 119 | ||
| 116 | void | 120 | void |
| 117 | _next (SV *self) | 121 | _next (SV *self) |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |