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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.163 by root, Thu Jan 11 01:01:56 2007 UTC vs.
Revision 1.164 by root, Thu Jan 11 01:24:25 2007 UTC

    my ($self) = @_;
    &cf::map::load_map_header ($self->save_path)
 }
+sub unlink_save {
+   my ($self) = @_;
+   utf8::encode (my $save = $self->save_path);
+   IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink $save;
+   IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink "$save.pst";
+}
 package cf;
 #############################################################################
 =head2 ATTACHABLE OBJECTS
    if ($self->{path}->is_style_map) {
       $self->{deny_save}  = 1;
       $self->{deny_reset} = 1;
    } else {
+      $self->decay_objects;
       $self->fix_auto_apply;
-      $self->decay_objects;
       $self->update_buttons;
       $self->set_darkness_map;
       $self->difficulty ($self->estimate_difficulty)
          unless $self->difficulty;
       $self->activate;
    my ($self) = @_;
    $self->reset_at <= $cf::RUNTIME
 }
-sub unlink_save {
-   my ($self) = @_;
-   utf8::encode (my $save = $self->{path}->save_path);
-   aioreq_pri 3; IO::AIO::aio_unlink $save;
-   aioreq_pri 3; IO::AIO::aio_unlink "$save.pst";
-}
 sub rename {
    my ($self, $new_path) = @_;
-   $self->unlink_save;
+   $self->{path}->unlink_save;
    delete $cf::MAP{$self->path};
    $self->{path} = new cf::path $new_path;
    $self->path ($self->{path}->as_string);
    $cf::MAP{$self->path} = $self;
    delete $cf::MAP{$self->path};
    $_->clear_links_to ($self) for values %cf::MAP;
-   $self->unlink_save;
+   $self->{path}->unlink_save;
    $self->destroy;
 }
 my $nuke_counter = "aaaa";

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