--- deliantra/server/plugins/cfperl/cfperl.xs	2006/03/31 19:47:55	1.43
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/03/31 20:21:53	1.44
@@ -67,6 +67,7 @@
     object*     who;
     object*     activator;
     object*     third;
+    object*     event;
     mapstruct*  map;
     char        message[1024];
     int         fix;             // seems to be python-only, and should not be part of the API
@@ -312,6 +313,7 @@
   hv_context (CFAPI_POBJECT, ,who);
   hv_context (CFAPI_POBJECT, ,activator);
   hv_context (CFAPI_POBJECT, ,third);
+  hv_context (CFAPI_POBJECT, ,event);
   hv_context (CFAPI_PMAP,    ,map);
   hv_context (CFAPI_STRING , ,message);
   hv_context (CFAPI_INT    ,&,fix);
@@ -619,7 +621,6 @@
   va_list args;
   char *buf;
   CFPContext context;
-  object *eob;
 
   if (!perl)
     return;
@@ -640,10 +641,11 @@
   context.fix = va_arg (args, int);
   strncpy (context.extension, va_arg (args, char *), sizeof (context.extension));
   strncpy (context.options, va_arg (args, char *), sizeof (context.options));
-  eob = va_arg (args, object *);
-  context.returnvalue = 0;
+  context.event = va_arg (args, object *);
   va_end (args);
 
+  context.returnvalue = 0;
+
   inject_event ("cf::inject_event", &context);
   
   rv = context.returnvalue;