Mercurial > pidgin.yaz
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 |