--- deliantra/server/server/cfperl.xs	2006/12/31 18:10:41	1.121
+++ deliantra/server/server/cfperl.xs	2006/12/31 21:02:05	1.122
@@ -2183,13 +2183,18 @@
             case 6: RETVAL = newSVuv    (               GET_MAP_MOVE_ON    (obj, x, y)); break;
             case 7: RETVAL = newSVuv    (               GET_MAP_MOVE_OFF   (obj, x, y)); break;
           }
-        OUTPUT:
-        RETVAL
+        OUTPUT: RETVAL
 
 void fix_walls (maptile *map, int x, int y)
 
 void fix_walls_around (maptile *map, int x, int y)
 
+const char *
+region_name (maptile *m)
+	CODE:
+        RETVAL = get_name_of_region_for_map (m);
+	OUTPUT: RETVAL
+
 # worst xs function of my life
 maptile *
 _create_random_map (\
@@ -2243,12 +2248,12 @@
         assign (rmp.layoutstyle      , layoutstyle);
         assign (rmp.doorstyle        , doorstyle);
         assign (rmp.decorstyle       , decorstyle);
-        assign (rmp.origin_map       , origin_map);
-        assign (rmp.final_map        , final_map);
         assign (rmp.exitstyle        , exitstyle);
-        assign (rmp.this_map         , this_map);
         assign (rmp.exit_on_final_map, exit_on_final_map);
 
+        rmp.origin_map          = origin_map;
+        rmp.final_map           = final_map;
+        rmp.this_map            = this_map;
         rmp.Xsize               = Xsize;
         rmp.Ysize               = Ysize;
         rmp.expand2x            = expand2x;
@@ -2305,12 +2310,18 @@
 
 MODULE = cf        PACKAGE = cf::region
 
-region  *first ()
+region *first ()
 	PROTOTYPE:
         CODE:
         RETVAL = first_region;
         OUTPUT: RETVAL
 
+region *find (char *name)
+	PROTOTYPE: $
+        CODE:
+        RETVAL = get_region_by_name (name);
+        OUTPUT: RETVAL
+
 INCLUDE: $PERL genacc region ../include/map.h |
 
 MODULE = cf        PACKAGE = cf::living