--- deliantra/server/include/cfperl.h	2006/11/07 16:30:55	1.31
+++ deliantra/server/include/cfperl.h	2006/11/17 19:40:54	1.32
@@ -249,7 +249,7 @@
   void put (keyword k, unsigned long long v) { put_(k, (sint64)v); }
 
   template<typename T>
-  void put (keyword k, T *v)
+  void put (keyword k, const T *v)
   {
     if (v)
       put (k, v->name);
@@ -257,6 +257,12 @@
       put (k, (const char *)0);
   }
 
+  template<typename T>
+  void put (keyword k, const refptr<T> &v)
+  {
+    put (k, (T *)v);
+  }
+
   bool save (const char *filename);
   char *as_string (); // like strdup