… | |
… | |
167 | PUSHs (sv_self); |
167 | PUSHs (sv_self); |
168 | PUSHs (sv_events); |
168 | PUSHs (sv_events); |
169 | |
169 | |
170 | PUTBACK; |
170 | PUTBACK; |
171 | call_sv (w->cb_sv, G_DISCARD | G_VOID | G_EVAL); |
171 | call_sv (w->cb_sv, G_DISCARD | G_VOID | G_EVAL); |
172 | SP = PL_stack_base + mark; PUTBACK; |
|
|
173 | |
172 | |
174 | SvREFCNT_dec (sv_self); |
173 | SvREFCNT_dec (sv_self); |
175 | SvREFCNT_dec (sv_status); |
174 | SvREFCNT_dec (sv_status); |
176 | |
175 | |
177 | if (sv_events_cache) |
176 | if (sv_events_cache) |
… | |
… | |
182 | if (SvTRUE (ERRSV)) |
181 | if (SvTRUE (ERRSV)) |
183 | { |
182 | { |
184 | PUSHMARK (SP); |
183 | PUSHMARK (SP); |
185 | PUTBACK; |
184 | PUTBACK; |
186 | call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR); |
185 | call_sv (get_sv ("EV::DIED", 1), G_DISCARD | G_VOID | G_EVAL | G_KEEPERR); |
187 | SP = PL_stack_base + mark; PUTBACK; |
|
|
188 | } |
186 | } |
|
|
187 | |
|
|
188 | SP = PL_stack_base + mark; |
|
|
189 | PUTBACK; |
189 | } |
190 | } |
190 | |
191 | |
191 | static ev_tstamp |
192 | static ev_tstamp |
192 | e_periodic_cb (struct ev_periodic *w, ev_tstamp now) |
193 | e_periodic_cb (struct ev_periodic *w, ev_tstamp now) |
193 | { |
194 | { |
… | |
… | |
486 | OUTPUT: |
487 | OUTPUT: |
487 | RETVAL |
488 | RETVAL |
488 | |
489 | |
489 | struct ev_child *child (int pid, SV *cb) |
490 | struct ev_child *child (int pid, SV *cb) |
490 | ALIAS: |
491 | ALIAS: |
491 | check_ns = 1 |
492 | child_ns = 1 |
492 | CODE: |
493 | CODE: |
493 | RETVAL = e_new (sizeof (struct ev_child), cb); |
494 | RETVAL = e_new (sizeof (struct ev_child), cb); |
494 | ev_child_set (RETVAL, pid); |
495 | ev_child_set (RETVAL, pid); |
495 | if (!ix) ev_child_start (RETVAL); |
496 | if (!ix) ev_child_start (RETVAL); |
496 | OUTPUT: |
497 | OUTPUT: |