pidgin/plugins/perl/common/GtkIMHtml.xs

branch
release-2.x.y
changeset 35992
34a67264df99
parent 25122
56e73606e2b2
child 36029
cd7db320cf5c
equal deleted inserted replaced
35991:e6937e52930b 35992:34a67264df99
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)); 174 if (unused)
175 t_len = av_len((AV *)SvRV(unused));
176 else
177 t_len = 0;
175 178
176 for (i = 0; i <= t_len; i++) { 179 for (i = 0; i <= t_len; i++) {
177 STRLEN t_sl; 180 STRLEN t_sl;
178 t_GL = g_slist_append(t_GL, SvPV(*av_fetch((AV *)SvRV(unused), i, 0), t_sl)); 181 t_GL = g_slist_append(t_GL, SvPV(*av_fetch((AV *)SvRV(unused), i, 0), t_sl));
179 } 182 }

mercurial