--- deliantra/server/server/main.C	2007/02/09 01:52:11	1.90
+++ deliantra/server/server/main.C	2007/02/13 16:23:32	1.91
@@ -475,6 +475,7 @@
   if (make_core)
     {
       cleanup_inform (cause, make_core);
+      cfperl_cleanup (make_core);
       _exit (1);
     }
   else
@@ -482,6 +483,7 @@
       new_draw_info_format (NDI_UNIQUE | NDI_ALL | NDI_GREEN, 0, 0, "Maps and players successfully saved, exiting.\n");
       new_draw_info_format (NDI_UNIQUE | NDI_ALL | NDI_GREEN, 0, 0, "And again: " CLEANUP_MESSAGE "\n");
       flush_sockets ();
+      cfperl_cleanup (make_core);
       _exit (0);
     }
 }