changeset 17741:b61baeefbe38

Fix _prefs_get_string_list for perl.
author Sadrul Habib Chowdhury <imadil@gmail.com>
date Tue, 22 May 2007 10:09:50 +0000
parents b25c4fe3a8ce
children ee58212687bb
files libpurple/plugins/perl/common/Prefs.xs
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/Prefs.xs	Tue May 22 07:51:02 2007 +0000
+++ b/libpurple/plugins/perl/common/Prefs.xs	Tue May 22 10:09:50 2007 +0000
@@ -95,7 +95,7 @@
 	GList *l;
 PPCODE:
 	for (l = purple_prefs_get_string_list(name); l != NULL; l = l->next) {
-		XPUSHs(sv_2mortal(purple_perl_bless_object(l->data, "Purple::PrefValue")));
+		XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
 	}
 
 Purple::PrefType