pidgin/plugins/perl/common/GtkIMHtml.xs

changeset 25112
4e9dba9e28e6
parent 25106
2d9389f32256
child 25122
56e73606e2b2
equal deleted inserted replaced
25106:2d9389f32256 25112:4e9dba9e28e6
169 PREINIT: 169 PREINIT:
170 GSList *t_GL; 170 GSList *t_GL;
171 int i, t_len; 171 int i, t_len;
172 PPCODE: 172 PPCODE:
173 t_GL = NULL; 173 t_GL = NULL;
174 t_len = av_len((AV *)SvRV(unused)) + 1; 174 t_len = av_len((AV *)SvRV(unused));
175 175
176 for (i = 0; i < t_len; i++) { 176 for (i = 0; i < t_len; i++) {
177 STRLEN t_sl; 177 STRLEN t_sl;
178 t_GL = g_slist_append(t_GL, SvPV(*av_fetch((AV *)SvRV(unused), i, 0), t_sl)); 178 t_GL = g_slist_append(t_GL, SvPV(*av_fetch((AV *)SvRV(unused), i, 0), t_sl));
179 } 179 }

mercurial