--- deliantra/server/server/cfperl.xs	2006/12/22 02:04:21	1.100
+++ deliantra/server/server/cfperl.xs	2006/12/22 06:02:29	1.101
@@ -1759,14 +1759,6 @@
 
 const char *cost_string_from_value(uint64 cost, int approx = 0)
 
-int invoke (int event, ...)
-	CODE:
-        if (KLASS_OF (event) != KLASS_GLOBAL) croak ("event class must be GLOBAL");
-	AV *av = (AV *)sv_2mortal ((SV *)newAV ());
-        for (int i = 1; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
-        RETVAL = INVOKE_((event_type)event, ARG_AV (av));
-	OUTPUT: RETVAL
-
 int
 exp_to_level (val64 exp)
         CODE:
@@ -1815,6 +1807,16 @@
 	OUTPUT:
 	RETVAL
 
+MODULE = cf        PACKAGE = cf::global
+
+int invoke (SV *klass, int event, ...)
+	CODE:
+        if (KLASS_OF (event) != KLASS_GLOBAL) croak ("event class must be GLOBAL");
+	AV *av = (AV *)sv_2mortal ((SV *)newAV ());
+        for (int i = 1; i < items; i++) av_push (av, SvREFCNT_inc (ST (i)));
+        RETVAL = INVOKE_((event_type)event, ARG_AV (av));
+	OUTPUT: RETVAL
+
 MODULE = cf        PACKAGE = cf::object         PREFIX = cf_object_
 
 INCLUDE: $PERL genacc object ../include/object.h |