| … | |
… | |
| 107 | { |
107 | { |
| 108 | dSP; |
108 | dSP; |
| 109 | I32 mark = SP - PL_stack_base; |
109 | I32 mark = SP - PL_stack_base; |
| 110 | SV *sv_self, *sv_events, *sv_status = 0; |
110 | SV *sv_self, *sv_events, *sv_status = 0; |
| 111 | static SV *sv_events_cache; |
111 | static SV *sv_events_cache; |
| 112 | |
|
|
| 113 | fprintf (stderr, "e_cb %p,%x\n", w, revents);//D |
|
|
| 114 | |
112 | |
| 115 | sv_self = newRV_inc (w->self); /* w->self MUST be blessed by now */ |
113 | sv_self = newRV_inc (w->self); /* w->self MUST be blessed by now */ |
| 116 | |
114 | |
| 117 | if (sv_events_cache) |
115 | if (sv_events_cache) |
| 118 | { |
116 | { |
