# HG changeset patch
# User Sadrul Habib Chowdhury <imadil@gmail.com>
# Date 1177643393 0
# Node ID d2af214913f15d0d6b0f4a828ce39c2513ea0fe1
# Parent  3c01acbf3478b393bf6339efb9c7c3cbaf55422b
Fix perl compile.

diff -r 3c01acbf3478 -r d2af214913f1 libpurple/plugins/perl/common/Account.xs
--- a/libpurple/plugins/perl/common/Account.xs	Fri Apr 27 02:34:42 2007 +0000
+++ b/libpurple/plugins/perl/common/Account.xs	Fri Apr 27 03:09:53 2007 +0000
@@ -59,7 +59,7 @@
     const char *user_info
 
 void
-purple_account_set_buddy_icon(account, icon)
+purple_account_set_buddy_icon_path(account, icon)
     Purple::Account account
     const char *icon
 
@@ -144,7 +144,7 @@
     Purple::Account account
 
 const char *
-purple_account_get_buddy_icon(account)
+purple_account_get_buddy_icon_path(account)
     Purple::Account account
 
 const char *
diff -r 3c01acbf3478 -r d2af214913f1 libpurple/plugins/perl/common/ImgStore.xs
--- a/libpurple/plugins/perl/common/ImgStore.xs	Fri Apr 27 02:34:42 2007 +0000
+++ b/libpurple/plugins/perl/common/ImgStore.xs	Fri Apr 27 03:09:53 2007 +0000
@@ -3,17 +3,23 @@
 MODULE = Purple::ImgStore  PACKAGE = Purple::ImgStore  PREFIX = purple_imgstore_
 PROTOTYPES: ENABLE
 
-int 
+Purple::StoredImage
 purple_imgstore_add(data, size, filename)
 	void *data
 	size_t size
 	const char *filename
 
+int
+purple_imgstore_add_with_id(data, size, filename)
+	void *data
+	size_t size
+	const char *filename
+
 Purple::StoredImage
-purple_imgstore_get(id)
+purple_imgstore_find_by_id(id)
 	int id
 
-gpointer 
+gconstpointer 
 purple_imgstore_get_data(i)
 	Purple::StoredImage i
 
@@ -25,11 +31,23 @@
 purple_imgstore_get_size(i)
 	Purple::StoredImage i
 
-void 
+const char *
+purple_imgstore_get_extension(i)
+	Purple::StoredImage i
+
+Purple::StoredImage
 purple_imgstore_ref(id)
+	Purple::StoredImage id
+
+Purple::StoredImage
+purple_imgstore_unref(id)
+	Purple::StoredImage id
+
+void
+purple_imgstore_ref_by_id(id)
 	int id
 
-void 
-purple_imgstore_unref(id)
+void
+purple_imgstore_unref_by_id(id)
 	int id