--- a/libpurple/plugins/perl/common/Server.xs Sat Sep 04 17:47:46 2010 +0000 +++ b/libpurple/plugins/perl/common/Server.xs Sun Sep 05 01:30:56 2010 +0000 @@ -144,6 +144,7 @@ g_hash_table_insert(t_GHash, t_key, t_value); } serv_join_chat(conn, t_GHash); + g_hash_table_destroy(t_GHash); void serv_move_buddy(buddy, group1, group2)