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