--- deliantra/server/lib/cf.pm	2006/08/30 08:28:33	1.56
+++ deliantra/server/lib/cf.pm	2006/08/30 11:21:24	1.57
@@ -484,6 +484,7 @@
       open my $fh, ">:raw", "$filename.pst~";
       syswrite $fh, Storable::nfreeze { version => 1, objs => $objs };
       close $fh;
+      unlink "$filename.cfperl";
       chmod SAVE_MODE, "$filename.pst~";
       rename "$filename.pst~", "$filename.pst";
    } else {
@@ -773,8 +774,6 @@
    my $path = $map->tmpname;
    $path = $map->path unless defined $path;
 
-   warn "$path.cfperl\n";#d#
-
    open my $fh, "<:raw", "$path.cfperl"
       or return; # no perl data