comparison: pidgin/plugins/perl/common/GtkIMHtml.xs
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 } |
