--- deliantra/server/server/cfperl.xs	2012/01/03 11:23:42	1.408
+++ deliantra/server/server/cfperl.xs	2012/01/04 02:48:57	1.409
@@ -2766,6 +2766,14 @@
 	OUTPUT:
         RETVAL
 
+void set_meta (faceidx idx, SV *sv)
+	CODE:
+{
+        faceinfo *f = face_info (idx); assert (f);
+        SvREFCNT_dec (f->meta_hv);
+        f->meta_hv = SvOK (sv) ? (HV *)SvREFCNT_inc (SvRV (sv)) : 0;
+}
+
 SV *get_chksum (faceidx idx, int faceset = 0)
 	CODE:
         facedata *d = face_data (idx, faceset);
@@ -2782,6 +2790,14 @@
 	OUTPUT:
         RETVAL
 
+SV *get_meta (faceidx idx)
+	CODE:
+        faceinfo *f = face_info (idx); assert (f);
+        if (!f || !f->meta_hv) XSRETURN_UNDEF;
+        RETVAL = newRV_inc ((SV *)f->meta_hv);
+	OUTPUT:
+        RETVAL
+
 void invalidate (faceidx idx)
 	CODE:
         for_all_clients (ns)