138
137
rec->func = perl_func_sv_inc(func, pkg);
139
138
rec->data = SvREFCNT_inc(data);
140
rec->tag = g_input_add_poll(source, G_PRIORITY_DEFAULT, condition,
143
141
(GInputFunction) perl_source_event, rec);
146
143
perl_sources = g_slist_append(perl_sources, rec);