# HG changeset patch
# User Elliott Sales de Andrade <qulogic@pidgin.im>
# Date 1315093877 0
# Node ID 2f3b391b114f94be10cd46aa74fd6eaf40dcad56
# Parent  3a19c7068b5361fb93615a57a412e3e85be8ae3e
Fix Perl bindings, which apparently were missing the _with_invite
functions originally.

diff -r 3a19c7068b53 -r 2f3b391b114f libpurple/plugins/perl/common/Account.xs
--- a/libpurple/plugins/perl/common/Account.xs	Sat Sep 03 23:39:48 2011 +0000
+++ b/libpurple/plugins/perl/common/Account.xs	Sat Sep 03 23:51:17 2011 +0000
@@ -199,9 +199,10 @@
     Purple::Account account
 
 void
-purple_account_add_buddies(account, list)
+purple_account_add_buddies(account, list, message)
     Purple::Account account
     SV * list
+    const char *message
 PREINIT:
     GList *t_GL;
     int i, t_len;
@@ -212,13 +213,14 @@
     for (i = 0; i <= t_len; i++)
         t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0)));
 
-    purple_account_add_buddies(account, t_GL);
+    purple_account_add_buddies(account, t_GL, message);
     g_list_free(t_GL);
 
 void
-purple_account_add_buddy(account, buddy)
-    Purple::Account account
-    Purple::BuddyList::Buddy  buddy
+purple_account_add_buddy(account, buddy, message)
+    Purple::Account          account
+    Purple::BuddyList::Buddy buddy
+    const char *             message
 
 void
 purple_account_change_password(account, a, b)