libpurple/plugins/perl/common/Account.xs

changeset 25107
bd102c539600
parent 25106
2d9389f32256
child 25122
56e73606e2b2
equal deleted inserted replaced
25106:2d9389f32256 25107:bd102c539600
105 int i, t_len; 105 int i, t_len;
106 PPCODE: 106 PPCODE:
107 t_GL = NULL; 107 t_GL = NULL;
108 t_len = av_len((AV *)SvRV(status_types)) + 1; 108 t_len = av_len((AV *)SvRV(status_types)) + 1;
109 109
110 for (i = 0; i < t_len; i++) 110 for (i = 0; i <= t_len; i++)
111 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0))); 111 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(status_types), i, 0)));
112 112
113 purple_account_set_status_types(account, t_GL); 113 purple_account_set_status_types(account, t_GL);
114 114
115 void 115 void
207 int i, t_len; 207 int i, t_len;
208 PPCODE: 208 PPCODE:
209 t_GL = NULL; 209 t_GL = NULL;
210 t_len = av_len((AV *)SvRV(list)) + 1; 210 t_len = av_len((AV *)SvRV(list)) + 1;
211 211
212 for (i = 0; i < t_len; i++) 212 for (i = 0; i <= t_len; i++)
213 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0))); 213 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0)));
214 214
215 purple_account_add_buddies(account, t_GL); 215 purple_account_add_buddies(account, t_GL);
216 g_list_free(t_GL); 216 g_list_free(t_GL);
217 217
236 int i, t_len; 236 int i, t_len;
237 PPCODE: 237 PPCODE:
238 t_GL1 = NULL; 238 t_GL1 = NULL;
239 t_len = av_len((AV *)SvRV(A)) + 1; 239 t_len = av_len((AV *)SvRV(A)) + 1;
240 240
241 for (i = 0; i < t_len; i++) 241 for (i = 0; i <= t_len; i++)
242 t_GL1 = g_list_append(t_GL1, SvPVutf8_nolen(*av_fetch((AV *)SvRV(A), i, 0))); 242 t_GL1 = g_list_append(t_GL1, SvPVutf8_nolen(*av_fetch((AV *)SvRV(A), i, 0)));
243 243
244 t_GL2 = NULL; 244 t_GL2 = NULL;
245 t_len = av_len((AV *)SvRV(B)) + 1; 245 t_len = av_len((AV *)SvRV(B)) + 1;
246 246
247 for (i = 0; i < t_len; i++) 247 for (i = 0; i <= t_len; i++)
248 t_GL2 = g_list_append(t_GL2, SvPVutf8_nolen(*av_fetch((AV *)SvRV(B), i, 0))); 248 t_GL2 = g_list_append(t_GL2, SvPVutf8_nolen(*av_fetch((AV *)SvRV(B), i, 0)));
249 249
250 purple_account_remove_buddies(account, t_GL1, t_GL2); 250 purple_account_remove_buddies(account, t_GL1, t_GL2);
251 g_list_free(t_GL1); 251 g_list_free(t_GL1);
252 g_list_free(t_GL2); 252 g_list_free(t_GL2);

mercurial