--- deliantra/server/server/cfperl.xs	2008/09/22 23:57:48	1.302
+++ deliantra/server/server/cfperl.xs	2008/09/23 04:29:11	1.303
@@ -629,8 +629,9 @@
   const char *argv[] = {
     settings.argv [0],
     "-e"
-    "use EV; use Coro;" // required for bootstrap
-    "cf->bootstrap;"    // required for datadir :*>
+    "use EV ();"
+    "use Coro ();"
+    "cf->bootstrap;"
     "unshift @INC, cf::datadir ();"
     "require cf;"
   };
@@ -641,14 +642,6 @@
       printf ("unable to initialize perl-interpreter, aborting.\n");
       exit (EXIT_FAILURE);
     }
-
-  {
-    dSP;
-
-    PUSHMARK (SP);
-    PUTBACK;
-    call_pv ("cf::init", G_DISCARD | G_VOID);
-  }
 }
 
 void cfperl_main ()
@@ -1523,7 +1516,6 @@
         GvMULTI_off (gv);
 #	undef f
 
-
 void _connect_to_perl ()
 
 void _recalc_want ()
@@ -1581,6 +1573,34 @@
         SvCUR_set (data_sv, dst - SvPVX (data_sv));
 }
 
+void init_anim ()
+
+void init_globals ()
+
+void init_experience ()
+
+void init_attackmess ()
+
+void init_dynamic ()
+
+void init_block ()
+
+void load_settings ()
+
+void load_materials ()
+
+void init_uuid ()
+	CODE:
+	UUID::init ();
+
+void init_signals ()
+
+void init_commands ()
+
+void init_skills ()
+
+void init_beforeplay ()
+
 void evthread_start (int aiofd)
 
 void cede_to_tick ()