--- deliantra/server/plugins/cfperl/cfperl.xs	2006/06/12 13:25:27	1.54
+++ deliantra/server/plugins/cfperl/cfperl.xs	2006/06/26 15:40:15	1.55
@@ -445,6 +445,8 @@
   perl = perl_alloc ();
   perl_construct (perl);
 
+  PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
+
   if (perl_parse (perl, xs_init, 2, argv, (char **)NULL) || perl_run (perl))
     {
       printf ("unable to initialize perl-interpreter, continuing without.\n");
@@ -1129,6 +1131,17 @@
     const_iv (SOUND_FALL_HOLE)
     const_iv (SOUND_DRINK_POISON)
     const_iv (SOUND_CAST_SPELL_0)
+
+    const_iv (MAP_FLUSH)
+    const_iv (MAP_PLAYER_UNIQUE)
+    const_iv (MAP_BLOCK)
+    const_iv (MAP_STYLE)
+    const_iv (MAP_OVERLAY)
+
+    const_iv (MAP_IN_MEMORY)
+    const_iv (MAP_SWAPPED)
+    const_iv (MAP_LOADING)
+    const_iv (MAP_SAVING)
   };
 
   for (civ = const_iv + sizeof (const_iv) / sizeof (const_iv [0]); civ-- > const_iv; )
@@ -1326,6 +1339,12 @@
 	PROTOTYPE: $$
 	C_ARGS: level, "%s", msg
 
+char *path_combine (char *base, char *path)
+	PROTOTYPE: $$
+
+char *path_combine_and_normalize (char *base, char *path)
+	PROTOTYPE: $$
+
 char *
 cf_get_maps_directory (char *path)
 	PROTOTYPE: $
@@ -1760,17 +1779,26 @@
 	PROTOTYPE: $
 	ALIAS: map = 0
 
+mapstruct *has_been_loaded (char *name)
+	PROTOTYPE: $
+
 mapstruct *cf_map_get_first ()
 	PROTOTYPE:
 	ALIAS: first = 0
 
 # whoever "designed" the plug-in api should have wasted
-# his/her time with staying away form the project - would have
+# his/her time with staying away from the project - would have
 # saved others a lot of time, without doubt.
 void set_path (mapstruct *where, char *path)
 	CODE:
         strcpy (where->path, path);
 
+int in_memory (mapstruct *map)
+	CODE:
+        RETVAL = map->in_memory;
+	OUTPUT:
+        RETVAL
+
 bool unique (mapstruct *map)
 	CODE:
         RETVAL = map->unique;