diff libpurple/plugins/perl/common/Core.xs @ 15833:2f8274ce570a

Perl fixes for s/gaim/purple/. This hasn't really been tested yet.

--- a/libpurple/plugins/perl/common/Core.xs	Mon Mar 19 17:01:28 2007 +0000
+++ b/libpurple/plugins/perl/common/Core.xs	Mon Mar 19 17:02:24 2007 +0000
@@ -1,28 +1,28 @@
 #include "module.h"
 
-MODULE = Gaim::Core  PACKAGE = Gaim::Core  PREFIX = gaim_core_
+MODULE = Purple::Core  PACKAGE = Purple::Core  PREFIX = purple_core_
 PROTOTYPES: ENABLE
 
 gboolean 
-gaim_core_quit_cb()
+purple_core_quit_cb()
 PPCODE:
-	/* The argument to gaim_core_quit_cb is not used,
+	/* The argument to purple_core_quit_cb is not used,
 	 * so there's little point in requiring it on the
 	 * Perl side. */
-	RETVAL = gaim_core_quit_cb(NULL);
+	RETVAL = purple_core_quit_cb(NULL);
 	ST(0) = boolSV(RETVAL);
 	sv_2mortal(ST(0));
 
 const char *
-gaim_core_get_version()
+purple_core_get_version()
 
 const char *
-gaim_core_get_ui()
+purple_core_get_ui()
 
 void
-gaim_core_set_ui_ops(ops)
-    Gaim::Core::UiOps ops
+purple_core_set_ui_ops(ops)
+    Purple::Core::UiOps ops
 
-Gaim::Core::UiOps
-gaim_core_get_ui_ops()
+Purple::Core::UiOps
+purple_core_get_ui_ops()