--- deliantra/server/lib/cf.pm	2006/03/07 01:37:06	1.6
+++ deliantra/server/lib/cf.pm	2006/03/07 13:44:43	1.7
@@ -214,6 +214,15 @@
    }
 };
 
+*on_mapclean = sub {
+   my $map = shift->{map};
+
+   my $path = $map->tmpname;
+   defined $path or return;
+
+   unlink "$path.cfperl";
+};
+
 *on_mapin =
 *on_mapload = sub {
    my $map = shift->{map};
@@ -248,6 +257,8 @@
          version => 1,
          obs => $obs,
       };
+
+      chmod SAVE_MODE, "$path.cfperl"; # very racy, but cf-compatible *g*
    } else {
       unlink "$path.cfperl";
    }