--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libpurple/plugins/perl/common/Core.xs	Sat Jan 20 02:32:10 2007 +0000
@@ -0,0 +1,28 @@
+#include "module.h"
+
+MODULE = Gaim::Core  PACKAGE = Gaim::Core  PREFIX = gaim_core_
+PROTOTYPES: ENABLE
+
+gboolean 
+gaim_core_quit_cb()
+PPCODE:
+	/* The argument to gaim_core_quit_cb is not used,
+	 * so there's little point in requiring it on the
+	 * Perl side. */
+	RETVAL = gaim_core_quit_cb(NULL);
+	ST(0) = boolSV(RETVAL);
+	sv_2mortal(ST(0));
+
+const char *
+gaim_core_get_version()
+
+const char *
+gaim_core_get_ui()
+
+void
+gaim_core_set_ui_ops(ops)
+    Gaim::Core::UiOps ops
+
+Gaim::Core::UiOps
+gaim_core_get_ui_ops()
+