diff libpurple/plugins/perl/common/Request.xs @ 23717:e3f30a73a793

Remove various opaque UiOps functions from the perl loader as they aren't useable.

--- 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