--- deliantra/server/lib/cf.pm	2006/08/30 12:08:15	1.58
+++ deliantra/server/lib/cf.pm	2006/08/30 16:30:37	1.59
@@ -478,20 +478,26 @@
 }
 
 sub object_freezer_save {
-   my ($filename, $objs) = @_;
+   my ($filename, $rdata, $objs) = @_;
 
-   if (@$objs) {
-      open my $fh, ">:raw", "$filename.pst~";
-      syswrite $fh, Storable::nfreeze { version => 1, objs => $objs };
+   if (open my $fh, ">:raw", "$filename~") {
+      chmod SAVE_MODE, $fh;
+      syswrite $fh, $$rdata;
       close $fh;
-      chmod SAVE_MODE, "$filename.pst~";
-      rename "$filename.pst~", "$filename.pst";
+
+      if (@$objs && open my $fh, ">:raw", "$filename.pst~") {
+         chmod SAVE_MODE, $fh;
+         syswrite $fh, Storable::nfreeze { version => 1, objs => $objs };
+         close $fh;
+         rename "$filename.pst~", "$filename.pst";
+      } else {
+         unlink "$filename.pst";
+      }
+
+      rename "$filename~", $filename;
    } else {
-      unlink "$filename.pst";
+      warn "FATAL: $filename~: $!\n";
    }
-
-   chmod SAVE_MODE, "$filename~";
-   rename "$filename~", $filename;
 }
 
 sub object_thawer_load {