Mercurial > pidgin.yaz

changeset 12892:3ab3e68df807

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 15245] These functions return a list of strings in C, in perl they were retuning a blessed object that didn't seem to have any use, so I made them return strings instead so they work "normally". I think this an improvement. committer: Tailor Script <tailor@pidgin.im>
author Etan Reisner <pidgin@unreliablesource.net>
date Mon, 16 Jan 2006 10:19:31 +0000
parents a58540b16f41
children 31e3c4f78aa4
files plugins/perl/common/Cmds.xs plugins/perl/common/Conversation.xs plugins/perl/common/Request.xs
diffstat 3 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/plugins/perl/common/Cmds.xs	Mon Jan 16 10:17:17 2006 +0000
+++ b/plugins/perl/common/Cmds.xs	Mon Jan 16 10:19:31 2006 +0000
@@ -12,7 +12,7 @@
 	GList *l;
 PPCODE:
 	for (l = gaim_cmd_help(conv, command); l != NULL; l = l->next) {
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
+		XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
 	}
 
 void
@@ -22,7 +22,7 @@
 	GList *l;
 PPCODE:
 	for (l = gaim_cmd_list(conv); l != NULL; l = l->next) {
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
+		XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
 	}
 
 Gaim::Cmd::Id
--- a/plugins/perl/common/Conversation.xs	Mon Jan 16 10:17:17 2006 +0000
+++ b/plugins/perl/common/Conversation.xs	Mon Jan 16 10:19:31 2006 +0000
@@ -52,7 +52,7 @@
 	GList *l;
 PPCODE:
 	for (l = gaim_conversation_get_send_history(conv); l != NULL; l = l->next) {
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListEntry")));
+		XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
 	}
 
 void
--- a/plugins/perl/common/Request.xs	Mon Jan 16 10:17:17 2006 +0000
+++ b/plugins/perl/common/Request.xs	Mon Jan 16 10:19:31 2006 +0000
@@ -246,7 +246,7 @@
 	GList *l;
 PPCODE:
 	for (l = gaim_request_field_choice_get_labels(field); l != NULL; l = l->next) {
-		XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
+		XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
 	}
 
 int
@@ -353,7 +353,7 @@
 	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")));
+		XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
 	}
 
 gboolean
@@ -367,7 +367,7 @@
 	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")));
+		XPUSHs(sv_2mortal(newSVpv(l->data, 0)));
 	}
 
 gboolean