… | |
… | |
2086 | my $nuke_counter = "aaaa"; |
2086 | my $nuke_counter = "aaaa"; |
2087 | |
2087 | |
2088 | sub nuke { |
2088 | sub nuke { |
2089 | my ($self) = @_; |
2089 | my ($self) = @_; |
2090 | |
2090 | |
|
|
2091 | { |
|
|
2092 | my $lock = cf::lock_acquire "map_data:$self->{path}"; |
|
|
2093 | |
2091 | delete $cf::MAP{$self->path}; |
2094 | delete $cf::MAP{$self->path}; |
2092 | |
2095 | |
2093 | $self->unlink_save; |
|
|
2094 | |
|
|
2095 | bless $self, "cf::map"; |
2096 | bless $self, "cf::map"; |
2096 | delete $self->{deny_reset}; |
2097 | delete $self->{deny_reset}; |
2097 | $self->{deny_save} = 1; |
2098 | $self->{deny_save} = 1; |
2098 | $self->reset_timeout (1); |
2099 | $self->reset_timeout (1); |
2099 | $self->path ($self->{path} = "{nuke}/" . ($nuke_counter++)); |
2100 | $self->path ($self->{path} = "{nuke}/" . ($nuke_counter++)); |
2100 | |
2101 | |
|
|
2102 | $self->unlink_save; |
|
|
2103 | |
2101 | $cf::MAP{$self->path} = $self; |
2104 | $cf::MAP{$self->path} = $self; |
|
|
2105 | } |
2102 | |
2106 | |
2103 | $self->reset; # polite request, might not happen |
2107 | $self->reset; # polite request, might not happen |
2104 | } |
2108 | } |
2105 | |
2109 | |
2106 | =item $maps = cf::map::tmp_maps |
2110 | =item $maps = cf::map::tmp_maps |