--- deliantra/server/server/cfperl.xs	2006/09/12 01:09:54	1.53
+++ deliantra/server/server/cfperl.xs	2006/09/12 01:26:07	1.54
@@ -1769,6 +1769,18 @@
             CLEAR_FLAG (op, flag);
         OUTPUT: RETVAL
 
+object *head (object *op)
+	PROTOTYPE: $
+	CODE:
+        RETVAL = op->head ? op->head : op;
+        OUTPUT: RETVAL
+
+int is_head (object *op)
+	PROTOTYPE: $
+        CODE:
+        RETVAL = !op->head;
+        OUTPUT: RETVAL
+
 void
 inv (object *obj)
 	PROTOTYPE: $