--- deliantra/server/lib/cf.pm	2007/01/01 13:31:47	1.112
+++ deliantra/server/lib/cf.pm	2007/01/01 15:32:40	1.113
@@ -806,7 +806,7 @@
    unless (aio_stat "$filename.pst") {
       (aio_load "$filename.pst", $av) >= 0
          or return;
-      $av = eval { (Storable::thaw <$av>)->{objs} };
+      $av = eval { (Storable::thaw $av)->{objs} };
    }
 
    return ($data, $av);
@@ -1264,6 +1264,19 @@
    aioreq_pri 3; IO::AIO::aio_unlink "$save.pst";
 }
 
+sub rename {
+   my ($self, $new_path) = @_;
+
+   $self->unlink_save;
+
+   delete $cf::MAP{$self->path};
+   $self->{path} = new cf::path $new_path;
+   $self->path ($self->{path}->path);
+   $cf::MAP{$self->path} = $self;
+
+   $self->save;
+}
+
 sub reset {
    my ($self) = @_;