Mercurial > pidgin
diff plugins/perl/common/Cmds.xs @ 12892:3ab3e68df807
[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 | e1603fd610fa |
| children |
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