comparison plugins/perl/common/Account.xs @ 13833:571aebbe5ec6

[gaim-migrate @ 16282] SF Patch #1502594 from Yosef Radchenko "Patches three instances of memory leaks with gaim_accounts_get_all_active" committer: Tailor Script <tailor@pidgin.im>
author Richard Laager <rlaager@wiktel.com>
date Mon, 19 Jun 2006 05:39:30 +0000
parents 702107dd58f1
children
comparison
equal deleted inserted replaced
13832:d1fdde7cfc0a 13833:571aebbe5ec6
284 } 284 }
285 285
286 void 286 void
287 gaim_accounts_get_all_active() 287 gaim_accounts_get_all_active()
288 PREINIT: 288 PREINIT:
289 GList *l; 289 GList *list, *iter;
290 PPCODE: 290 PPCODE:
291 for (l = gaim_accounts_get_all_active(); l != NULL; l = l->next) { 291 list = gaim_accounts_get_all_active();
292 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Account"))); 292 for (iter = gaim_accounts_get_all_active(); iter != NULL; iter = iter->next) {
293 } 293 XPUSHs(sv_2mortal(gaim_perl_bless_object(iter->data, "Gaim::Account")));
294 }
295 g_list_free(list);
294 296
295 Gaim::Account 297 Gaim::Account
296 gaim_accounts_find(name, protocol) 298 gaim_accounts_find(name, protocol)
297 const char * name 299 const char * name
298 const char * protocol 300 const char * protocol