# HG changeset patch
# User John H. Kelm <johnkelm@gmail.com>
# Date 1121767390 0
# Node ID 3f3bc7f1b6bf78303c9af9f983e4018f048a5c86
# Parent  0754ce8f1122b5ea6d7a3662aff95e2f9977bb0b
[gaim-migrate @ 13186]
Fixed warning messages

committer: Tailor Script <tailor@pidgin.im>

diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/Account.xs
--- a/plugins/perl/common/Account.xs	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/Account.xs	Tue Jul 19 10:03:10 2005 +0000
@@ -185,7 +185,7 @@
 gaim_account_get_status_types(account)
 	Gaim::Account account
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_account_get_status_types(account); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Status::Type")));
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/AccountOpts.xs
--- a/plugins/perl/common/AccountOpts.xs	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/AccountOpts.xs	Tue Jul 19 10:03:10 2005 +0000
@@ -83,7 +83,7 @@
 gaim_account_option_get_list(option)
 	Gaim::Account::Option option
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_account_option_get_list(option); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/BuddyIcon.xs
--- a/plugins/perl/common/BuddyIcon.xs	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/BuddyIcon.xs	Tue Jul 19 10:03:10 2005 +0000
@@ -56,7 +56,7 @@
 gaim_buddy_icon_get_username(icon)
 	Gaim::Buddy::Icon icon
 
-void *
+const void *
 gaim_buddy_icon_get_data(icon, len)
 	Gaim::Buddy::Icon icon
 	size_t &len
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/Cipher.xs
--- a/plugins/perl/common/Cipher.xs	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/Cipher.xs	Tue Jul 19 10:03:10 2005 +0000
@@ -22,8 +22,8 @@
 gaim_cipher_digest_region(name, data, data_len, in_len, digest, out_len)
 	const gchar * name
 	const guint8 * data 
-	size_t &data_len
-	size_t &in_len
+	size_t data_len
+	size_t in_len
 	guint8 &digest 
 	size_t * out_len
 
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/Makefile.mingw
--- a/plugins/perl/common/Makefile.mingw	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/Makefile.mingw	Tue Jul 19 10:03:10 2005 +0000
@@ -44,17 +44,37 @@
 ##  SOURCES, OBJECTS
 ##
 
-XS_FILES =		Account.xs \
-			BuddyList.xs \
-			BuddyList_Buddy.xs \
-			BuddyList_Chat.xs \
-			BuddyList_Group.xs \
-			Connection.xs \
-			ConvWindow.xs \
-			Conversation.xs \
-			Conversation_Chat.xs \
-			Conversation_IM.xs \
-			Gaim.xs
+XS_FILES =		Account.xs 
+ 	       		AccountOpts.xs 
+        		BuddyIcon.xs 
+ 	       		BuddyList.xs 
+ 	       		Cipher.xs 
+		       	Cmds.xs 
+        		Connection.xs 
+        		Conversation.xs 
+        		FT.xs 
+			Gaim.xs 
+        		ImgStore.xs 
+        		Log.xs 
+        		Network.xs 
+        		Notify.xs 
+        		Plugin.xs 
+        		PluginPref.xs 
+        		Pounce.xs 
+        		Prefs.xs 
+        		Privacy.xs 
+        		Proxy.xs 
+        		Prpl.xs 
+        		Request.xs 
+        		Roomlist.xs 
+        		SSLConn.xs 
+        		SavedStatuses.xs 
+        		Server.xs 
+        		Sound.xs 
+        		Status.xs 
+        		Stringref.xs 
+        		Util.xs 
+        		XMLNode.xs 
 
 FALLBACKS =		const-c.inc const-xs.inc
 
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/Request.xs
--- a/plugins/perl/common/Request.xs	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/Request.xs	Tue Jul 19 10:03:10 2005 +0000
@@ -61,9 +61,13 @@
 gaim_request_field_account_get_default_value(field)
 	Gaim::Request::Field field
 
-SV *
+IV
 gaim_request_field_account_get_filter(field)
 	Gaim::Request::Field field
+CODE:
+	RETVAL = PTR2IV(gaim_request_field_account_get_filter(field));
+OUTPUT:
+	RETVAL
 
 gboolean 
 gaim_request_field_account_get_show_all(field)
@@ -271,7 +275,7 @@
 gaim_request_field_list_get_items(field)
 	Gaim::Request::Field field
 PREINIT:
-        GList *l;
+        const GList *l;
 PPCODE:
         for (l = gaim_request_field_list_get_items(field); l != NULL; l = l->next) {
                 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
@@ -285,7 +289,7 @@
 gaim_request_field_list_get_selected(field)
 	Gaim::Request::Field field
 PREINIT:
-        GList *l;
+        const GList *l;
 PPCODE:
         for (l = gaim_request_field_list_get_selected(field); l != NULL; l = l->next) {
                 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
@@ -439,7 +443,7 @@
 gaim_request_fields_get_required(fields)
 	Gaim::Request::Fields fields
 PREINIT:
-        GList *l;
+        const GList *l;
 PPCODE:
         for (l = gaim_request_fields_get_required(fields); l != NULL; l = l->next) {
                 XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/SavedStatuses.xs
--- a/plugins/perl/common/SavedStatuses.xs	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/SavedStatuses.xs	Tue Jul 19 10:03:10 2005 +0000
@@ -49,7 +49,7 @@
 void
 gaim_savedstatuses_get_all()
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_savedstatuses_get_all(); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/Status.xs
--- a/plugins/perl/common/Status.xs	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/Status.xs	Tue Jul 19 10:03:10 2005 +0000
@@ -74,7 +74,7 @@
 gaim_presence_get_buddies(presence)
 	Gaim::Presence presence
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_presence_get_buddies(presence); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
@@ -109,7 +109,7 @@
 gaim_presence_get_statuses(presence)
 	Gaim::Presence presence
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_presence_get_statuses(presence); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
@@ -370,7 +370,7 @@
 gaim_status_type_get_attrs(status_type)
 	Gaim::StatusType status_type
 PREINIT:
-	GList *l;
+	const GList *l;
 PPCODE:
 	for (l = gaim_status_type_get_attrs(status_type); l != NULL; l = l->next) {
 		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/module.h
--- a/plugins/perl/common/module.h	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/module.h	Tue Jul 19 10:03:10 2005 +0000
@@ -84,7 +84,7 @@
 typedef GaimCipherContext *		Gaim__Cipher__Context;	
 
 	/* cmds.h */
-typedef GaimCmdId *             Gaim__CmdId;
+typedef GaimCmdId              Gaim__CmdId;
 
 	/* connection.h */
 typedef GaimConnectionFlags		Gaim__ConnectionFlags;
diff -r 0754ce8f1122 -r 3f3bc7f1b6bf plugins/perl/common/typemap
--- a/plugins/perl/common/typemap	Tue Jul 19 05:31:36 2005 +0000
+++ b/plugins/perl/common/typemap	Tue Jul 19 10:03:10 2005 +0000
@@ -29,6 +29,7 @@
 xmlnode *				T_PTR
 const xmlnode *				T_PTR
 gssize					T_IV
+const void *				T_PTR
 
 Gaim::Account           		T_GaimObj
 Gaim::Account::Option   		T_GaimObj