[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.139 by root, Thu Jan 11 23:17:05 2007 UTC vs.
Revision 1.140 by root, Sat Jan 13 23:06:13 2007 UTC

       // now bless the object _once_
       return sv_bless (newRV_inc ((SV *)obj->self), stash);
     }
   else
+    {
-    return newRV_inc ((SV *)obj->self);
+      SV *sv = newRV_inc ((SV *)obj->self);
+      if (Gv_AMG (stash)) // handle overload correctly, as the perl core does not
+        SvAMAGIC_on (sv);
+      return sv;
+    }
 }
 static void
 clearSVptr (SV *sv)
 {
 object* cf_map_present_arch_by_name (maptile *map, const char* str, int nx, int ny)
         C_ARGS: str, map, nx, ny
 void
-cf_map_normalise (maptile *map, int x, int y)
+get_map_flags (maptile *map, int x, int y)
 	PPCODE:
 {
         maptile *nmap = 0;
         I16 nx = 0, ny = 0;
         int flags = get_map_flags (map, &nmap, x, y, &nx, &ny);
 	CODE:
         RETVAL = get_name_of_region_for_map (m);
 	OUTPUT: RETVAL
 # worst xs function of my life
-maptile *
+bool
 _create_random_map (\
-	char *path,\
+        maptile *self,\
 	char *wallstyle,\
 	char *wall_name,\
 	char *floorstyle,\
 	char *monsterstyle,\
 	char *treasurestyle,\
         rmp.treasureoptions     = treasureoptions;
         rmp.symmetry_used       = symmetry_used;
         rmp.region              = region;
         rmp.custom		= custom;
-        RETVAL = generate_random_map (path, &rmp);
+        RETVAL = self->generate_random_map (&rmp);
 }
 	OUTPUT:
         RETVAL
 MODULE = cf        PACKAGE = cf::arch

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines