--- deliantra/server/server/cfperl.xs	2006/12/23 15:49:40	1.106
+++ deliantra/server/server/cfperl.xs	2006/12/23 16:29:02	1.107
@@ -38,6 +38,7 @@
 #include <perl.h>
 #include <XSUB.h>
 
+#include "CoroAPI.h"
 #include "perlxsi.c"
 
 extern sint64 *levels; // the experience table
@@ -845,8 +846,8 @@
   char *argv[] = {
     "",
     "-e"
-    "use Event;"      // required for bootstrap
-    "cf->bootstrap;"  // required for datadir :*>
+    "use Event; use Coro;" // required for bootstrap
+    "cf->bootstrap;"       // required for datadir :*>
     "unshift @INC, cf::datadir ();"
     "require cf;"
   };
@@ -1148,6 +1149,7 @@
 
   I_EVENT_API (PACKAGE);
   watcher_base::GEventAPI = GEventAPI;
+  I_CORO_API (PACKAGE);
 
   newCONSTSUB (stash, "VERSION", newSVpv (VERSION, sizeof (VERSION) - 1));