--- deliantra/server/plugins/cfperl/cfperl.xs	2006/03/07 13:44:43	1.30
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/03/07 13:48:27	1.31
@@ -451,6 +451,7 @@
   registerGlobalEvent (NULL, EVENT_MAPLOAD, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_MAPOUT, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_MAPIN, PLUGIN_NAME, globalEventListener);
+  registerGlobalEvent (NULL, EVENT_MAPCLEAN, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_REMOVE, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_SHOUT, PLUGIN_NAME, globalEventListener);
   registerGlobalEvent (NULL, EVENT_TELL, PLUGIN_NAME, globalEventListener);
@@ -515,6 +516,7 @@
       case EVENT_MAPLOAD:
       case EVENT_MAPOUT:
       case EVENT_MAPIN:
+      case EVENT_MAPCLEAN:
         context.map = va_arg (args, mapstruct *);
         break;