changeset 11131:ece127d56c14

[gaim-migrate @ 13187] Fixed warning messages committer: Tailor Script <tailor@pidgin.im>
author John H. Kelm <johnkelm@gmail.com>
date Tue, 19 Jul 2005 10:16:32 +0000
parents 3f3bc7f1b6bf
children a4611130e3eb
files plugins/perl/common/AccountOpts.xs plugins/perl/common/BuddyList.xs plugins/perl/common/PluginPref.xs plugins/perl/common/Server.xs plugins/perl/common/Status.xs
diffstat 5 files changed, 6 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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)
--- 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:
--- 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);
 
--- 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:
--- 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));