Mercurial > pidgin.yaz
diff libpurple/plugins/perl/common/Request.xs @ 23717:e3f30a73a793
Remove various opaque UiOps functions from the perl loader as they aren't useable.
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Thu, 07 Aug 2008 04:26:02 +0000 |
parents | 3a41eb457605 |
children | f8d3447235b1 cc1e35fa774d |
line wrap: on
line diff
--- a/libpurple/plugins/perl/common/Request.xs Thu Aug 07 04:10:22 2008 +0000 +++ b/libpurple/plugins/perl/common/Request.xs Thu Aug 07 04:26:02 2008 +0000 @@ -47,7 +47,7 @@ SAVETMPS; PUSHMARK(sp); - XPUSHs(purple_perl_bless_object(fields, "Purple::Request::Fields")); + XPUSHs(sv_2mortal(purple_perl_bless_object(fields, "Purple::Request::Fields"))); PUTBACK; call_sv(gpr->ok_fun, G_EVAL | G_SCALAR); SPAGAIN; @@ -69,7 +69,7 @@ SAVETMPS; PUSHMARK(sp); - XPUSHs(purple_perl_bless_object(fields, "Purple::Request::Fields")); + XPUSHs(sv_2mortal(purple_perl_bless_object(fields, "Purple::Request::Fields"))); PUTBACK; call_sv(gpr->cancel_fun, G_EVAL | G_SCALAR); SPAGAIN; @@ -206,12 +206,6 @@ purple_request_close_with_handle(handle) void * handle -Purple::Request::UiOps -purple_request_get_ui_ops() - -void -purple_request_set_ui_ops(ops) - Purple::Request::UiOps ops MODULE = Purple::Request PACKAGE = Purple::Request::Field PREFIX = purple_request_field_ PROTOTYPES: ENABLE