--- deliantra/server/lib/cf.pm	2010/04/15 06:07:51	1.517
+++ deliantra/server/lib/cf.pm	2010/04/16 02:21:26	1.518
@@ -2214,11 +2214,10 @@
    ()
 }
 
-sub save {
+# common code, used by both ->save and ->swapout
+sub _save {
    my ($self) = @_;
 
-   my $lock = cf::lock_acquire "map_data:$self->{path}";
-
    $self->{last_save} = $cf::RUNTIME;
 
    return unless $self->dirty;
@@ -2247,22 +2246,32 @@
    }
 }
 
-sub swap_out {
+sub save {
    my ($self) = @_;
 
-   # save first because save cedes
-   $self->save;
+   my $lock = cf::lock_acquire "map_data:$self->{path}";
+
+   $self->_save;
+}
+
+sub swap_out {
+   my ($self) = @_;
 
    my $lock = cf::lock_acquire "map_data:$self->{path}";
 
-   return if $self->players;
    return if $self->in_memory != cf::MAP_ACTIVE;
    return if $self->{deny_save};
+   return if $self->players;
 
-   $self->in_memory (cf::MAP_SWAPPED);
-
+   # first deactivate the map and "unlink" it from the core
    $self->deactivate;
    $_->clear_links_to ($self) for values %cf::MAP;
+   $self->in_memory (cf::MAP_SWAPPED);
+
+   # then atomically save
+   $self->_save;
+
+   # then free the map
    $self->clear;
 }