--- deliantra/server/include/cfperl.h	2006/08/30 06:06:27	1.14
+++ deliantra/server/include/cfperl.h	2006/08/30 11:02:15	1.15
@@ -118,8 +118,6 @@
 {
   void *av;
   FILE *fp;
-
-  operator FILE *() { return fp; }
 };
 
 struct object_freezer : object_freezethaw
@@ -136,6 +134,8 @@
   {
     put ((attachable_base *)obj);
   }
+
+  operator bool () { return !!fp; }
 };
 
 struct object_thawer : object_freezethaw
@@ -151,7 +151,12 @@
     if (av)
       get (subclass::get_dt (), (subclass *)obj, obj, oid);
   }
+
+  operator FILE *() { return fp; }
 };
 
+int fprintf (object_freezer &freezer, const char *format, ...);
+int fputs (const char *s, object_freezer &freezer);
+
 #endif