pidgin: dbd8013d: Fix Perl bindings, which apparently were...

[qulogic at pidgin.im]

----------------------------------------------------------------------
Revision: dbd8013d6a5759bf680a3aa625565cafb8df6039
Parent:   cc8bc549c318ffc769a31a9e764dc2b514515acf
Author:   qulogic at pidgin.im
Date:     09/03/11 19:51:17
Branch:   im.pidgin.pidgin
URL: http://d.pidgin.im/viewmtn/revision/info/dbd8013d6a5759bf680a3aa625565cafb8df6039

Changelog: 

Fix Perl bindings, which apparently were missing the _with_invite
functions originally.

Changes against parent cc8bc549c318ffc769a31a9e764dc2b514515acf

  patched  libpurple/plugins/perl/common/Account.xs

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/common/Account.xs	ed152a6f2cb93b88a2b8683f6b573a6ac3b62c9f
+++ libpurple/plugins/perl/common/Account.xs	f36af75ca5cac6c275b9525ea1bfa47a4345d34d
@@ -199,9 +199,10 @@ void
     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 @@ PPCODE:
     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)