… | |
… | |
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 | { |