[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.50 by root, Mon Aug 28 07:07:42 2006 UTC vs.
Revision 1.51 by root, Mon Aug 28 14:05:24 2006 UTC

 }
 sub object_freezer_save {
    my ($filename, $objs) = @_;
-   $filename .= ".pst";
    if (@$objs) {
-      open my $fh, ">:raw", "$filename~";
+      open my $fh, ">:raw", "$filename.pst~";
-      chmod $fh, SAVE_MODE;
       syswrite $fh, Storable::nfreeze { version => 1, objs => $objs };
       close $fh;
+      chmod SAVE_MODE, "$filename.pst~";
-      rename "$filename~", $filename;
+      rename "$filename.pst~", "$filename.pst";
    } else {
-      unlink $filename;
+      unlink "$filename.pst";
    }
+   chmod SAVE_MODE, "$filename~";
+   rename "$filename~", $filename;
 }
 sub object_thawer_load {
    my ($filename) = @_;
    my ($map) = @_;
    my $path = $map->tmpname;
    defined $path or return;
-   unlink "$path.cfperl";
    unlink "$path.pst";
 };
+# old style persistent data, TODO: remove #d#
 *cf::mapsupport::on_swapin =
 *cf::mapsupport::on_load = sub {
    my ($map) = @_;
    my $path = $map->tmpname;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines