Mercurial > pidgin
comparison libpurple/plugins/perl/common/Account.xs @ 17742:ee58212687bb
Plug a few more memory leaks for some perl plugins.
| author | Sadrul Habib Chowdhury <imadil@gmail.com> |
|---|---|
| date | Tue, 22 May 2007 11:01:14 +0000 |
| parents | d2af214913f1 |
| children | 4ca97b26a8fb |
comparison
equal
deleted
inserted
replaced
| 17741:b61baeefbe38 | 17742:ee58212687bb |
|---|---|
| 213 for (i = 0; i < t_len; i++) { | 213 for (i = 0; i < t_len; i++) { |
| 214 STRLEN t_sl; | 214 STRLEN t_sl; |
| 215 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(list), i, 0), t_sl)); | 215 t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(list), i, 0), t_sl)); |
| 216 } | 216 } |
| 217 purple_account_add_buddies(account, t_GL); | 217 purple_account_add_buddies(account, t_GL); |
| 218 g_list_free(t_GL); | |
| 218 | 219 |
| 219 void | 220 void |
| 220 purple_account_add_buddy(account, buddy) | 221 purple_account_add_buddy(account, buddy) |
| 221 Purple::Account account | 222 Purple::Account account |
| 222 Purple::BuddyList::Buddy buddy | 223 Purple::BuddyList::Buddy buddy |
| 250 for (i = 0; i < t_len; i++) { | 251 for (i = 0; i < t_len; i++) { |
| 251 STRLEN t_sl; | 252 STRLEN t_sl; |
| 252 t_GL2 = g_list_append(t_GL2, SvPV(*av_fetch((AV *)SvRV(B), i, 0), t_sl)); | 253 t_GL2 = g_list_append(t_GL2, SvPV(*av_fetch((AV *)SvRV(B), i, 0), t_sl)); |
| 253 } | 254 } |
| 254 purple_account_remove_buddies(account, t_GL1, t_GL2); | 255 purple_account_remove_buddies(account, t_GL1, t_GL2); |
| 256 g_list_free(t_GL1); | |
| 257 g_list_free(t_GL2); | |
| 255 | 258 |
| 256 void | 259 void |
| 257 purple_account_remove_buddy(account, buddy, group) | 260 purple_account_remove_buddy(account, buddy, group) |
| 258 Purple::Account account | 261 Purple::Account account |
| 259 Purple::BuddyList::Buddy buddy | 262 Purple::BuddyList::Buddy buddy |