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

committer: Tailor Script <tailor@pidgin.im>

diff -r 3f3bc7f1b6bf -r ece127d56c14 plugins/perl/common/AccountOpts.xs
--- a/plugins/perl/common/AccountOpts.xs	Tue Jul 19 10:03:10 2005 +0000
+++ b/plugins/perl/common/AccountOpts.xs	Tue Jul 19 10:16:32 2005 +0000
@@ -45,7 +45,7 @@
 PREINIT:
 	GList *t_GL;
 	int i, t_len;
-PPCODE:
+CODE:
 	t_GL = NULL;
 	t_len = av_len((AV *)SvRV(values));
 
@@ -53,7 +53,9 @@
 		STRLEN t_sl;
 		t_GL = g_list_append(t_GL, SvPV(*av_fetch((AV *)SvRV(values), i, 0), t_sl));
 	}
-	gaim_account_option_list_new(text, pref_name, t_GL);
+	RETVAL  = gaim_account_option_list_new(text, pref_name, t_GL);
+OUTPUT:
+	RETVAL
 
 Gaim::Account::Option
 gaim_account_option_string_new(text, pref_name, default_value)
diff -r 3f3bc7f1b6bf -r ece127d56c14 plugins/perl/common/BuddyList.xs
--- a/plugins/perl/common/BuddyList.xs	Tue Jul 19 10:03:10 2005 +0000
+++ b/plugins/perl/common/BuddyList.xs	Tue Jul 19 10:16:32 2005 +0000
@@ -334,7 +334,6 @@
 	HE * t_HE;
 	SV * t_SV;
 	GHashTable * t_GHash;
-	int i;
 	I32 len;
 	char *t_key, *t_value;
 CODE:
diff -r 3f3bc7f1b6bf -r ece127d56c14 plugins/perl/common/PluginPref.xs
--- a/plugins/perl/common/PluginPref.xs	Tue Jul 19 10:03:10 2005 +0000
+++ b/plugins/perl/common/PluginPref.xs	Tue Jul 19 10:16:32 2005 +0000
@@ -127,6 +127,5 @@
 	Gaim::PluginPref pref
 	Gaim::PluginPrefType type
 CODE:
-	printf("gaim_plugin_pref_set_type(): %d\n", (int)GAIM_PLUGIN_PREF_CHOICE);
-	gaim_plugin_pref_set_type(pref, GAIM_PLUGIN_PREF_CHOICE);
+	gaim_plugin_pref_set_type(pref, type);
 
diff -r 3f3bc7f1b6bf -r ece127d56c14 plugins/perl/common/Server.xs
--- a/plugins/perl/common/Server.xs	Tue Jul 19 10:03:10 2005 +0000
+++ b/plugins/perl/common/Server.xs	Tue Jul 19 10:16:32 2005 +0000
@@ -109,7 +109,6 @@
 	HE * t_HE;
 	SV * t_SV;
 	GHashTable * t_GHash;
-	int i;
 	I32 len;
 	char *t_key, *t_value;
 CODE:
@@ -165,7 +164,6 @@
 	HE * t_HE;
 	SV * t_SV;
 	GHashTable * t_GHash;
-	int i;
 	I32 len;
 	char *t_key, *t_value;
 CODE:
@@ -196,7 +194,6 @@
 	HE * t_HE;
 	SV * t_SV;
 	GHashTable * t_GHash;
-	int i;
 	I32 len;
 	char *t_key, *t_value;
 CODE:
diff -r 3f3bc7f1b6bf -r ece127d56c14 plugins/perl/common/Status.xs
--- a/plugins/perl/common/Status.xs	Tue Jul 19 10:03:10 2005 +0000
+++ b/plugins/perl/common/Status.xs	Tue Jul 19 10:16:32 2005 +0000
@@ -351,7 +351,7 @@
 PREINIT:
 	GList *t_GL;
 	int i, t_len;
-PPCODE:
+CODE:
 	t_GL = NULL;
 	t_len = av_len((AV *)SvRV(status_types));