diff plugins/perl/common/AccountOpts.xs @ 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 b284c703d398
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)