gobjectification: 7e59bc06: Fix the perl/tcl plugin loaders. I am no..

[sadrul at pidgin.im]

-----------------------------------------------------------------
Revision: 7e59bc060a0d03b20111966624078a627d9d4383
Ancestor: 855e08f7caf0c5a56a9ecec94f0d59f3daaac32b
Author: sadrul at pidgin.im
Date: 2008-06-22T21:47:58
Branch: im.pidgin.gobjectification
URL: http://d.pidgin.im/viewmtn/revision/info/7e59bc060a0d03b20111966624078a627d9d4383

Modified files:
        libpurple/plugins/perl/common/Connection.xs
        libpurple/plugins/tcl/tcl_cmds.c

ChangeLog: 

Fix the perl/tcl plugin loaders. I am not entirely sure I can keep both
of these up-to-date, seeing as how I don't know anything about the
changes that would be required. I may eventually disable both of the
plugin loaders until someone more familiar with them start working in
this branch.

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/common/Connection.xs	1a8896279c7c8d0eb4fb7203153142516910793a
+++ libpurple/plugins/perl/common/Connection.xs	a5ed5f7afea1a9d89cf9856fea513cbddac2f71b
@@ -63,6 +63,8 @@ purple_connection_get_state(gc)
 purple_connection_get_state(gc)
 	Purple::Connection gc
 
+#if 0
+
 MODULE = Purple::Connection  PACKAGE = Purple::Connections  PREFIX = purple_connections_
 PROTOTYPES: ENABLE
 
@@ -94,3 +96,5 @@ purple_connections_get_ui_ops()
 Purple::Connection::UiOps
 purple_connections_get_ui_ops()
 
+#endif
+
============================================================
--- libpurple/plugins/tcl/tcl_cmds.c	1aab9da792e98a2a67633bef6a6cbeb71e25e177
+++ libpurple/plugins/tcl/tcl_cmds.c	fbbc0799737a278b4210d0b11294d9f15081a541
@@ -186,12 +186,11 @@ int tcl_cmd_account(ClientData unused, T
 		if (objc == 3) {
 			Tcl_SetObjResult(interp, 
 					 Tcl_NewBooleanObj(
-						 purple_account_get_enabled(account,
-									    purple_core_get_ui())));
+						 purple_account_get_enabled(account)));
 		} else {
 			if ((error = Tcl_GetBooleanFromObj(interp, objv[3], &b)) != TCL_OK)
 				return TCL_ERROR;
-			purple_account_set_enabled(account, purple_core_get_ui(), b);
+			purple_account_set_enabled(account, b);
 		}
 		break;
 	case CMD_ACCOUNT_FIND: