Mercurial > pidgin.yaz

diff libpurple/plugins/perl/common/Account.xs @ 17240:ee58212687bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/Account.xs	Tue May 22 10:09:50 2007 +0000
+++ b/libpurple/plugins/perl/common/Account.xs	Tue May 22 11:01:14 2007 +0000
@@ -215,6 +215,7 @@
         t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(list), i, 0), t_sl));
     }
     purple_account_add_buddies(account, t_GL);
+    g_list_free(t_GL);
 
 void
 purple_account_add_buddy(account, buddy)
@@ -252,6 +253,8 @@
         t_GL2 = g_list_append(t_GL2, SvPV(*av_fetch((AV *)SvRV(B), i, 0), t_sl));
     }
     purple_account_remove_buddies(account, t_GL1, t_GL2);
+    g_list_free(t_GL1);
+    g_list_free(t_GL2);
 
 void
 purple_account_remove_buddy(account, buddy, group)