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

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.169 by root, Sun Jan 14 01:09:46 2007 UTC vs.
Revision 1.170 by root, Sun Jan 14 02:00:37 2007 UTC

 our @CB_CLIENT     = ();
 our @CB_TYPE       = (); # registry for type (cf-object class) based events
 our @CB_MAP        = ();
 my %attachment;
+sub cf::attachable::thawer_merge {
+   # simply override everything except _meta
+   local $_[0]{_meta};
+   %{$_[0]} = %{$_[1]};
+}
 sub _attach_cb($$$$) {
    my ($registry, $event, $prio, $cb) = @_;
    use sort 'stable';
 }
 # also paths starting with '/'
 $EXT_MAP{"cf::map"} = qr{^(?=/)};
+sub thawer_merge {
+   # we have to keep some variables in memory intact
+   local $_[0]{path};
+   local $_[0]{deny_save};
+   local $_[0]{deny_reset};
+   $_[0]->SUPER::thawer_merge ($_[1]);
+}
 sub normalise {
    my ($path, $base) = @_;
    # map plan:
    #
 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; Coro::AIO::aio_unlink $save;
-   IO::AIO::aioreq_pri 4; IO::AIO::aio_unlink "$save.pst";
+   IO::AIO::aioreq_pri 4; Coro::AIO::aio_unlink "$save.pst";
 }
 sub load_header_from($) {
    my ($self, $path) = @_;

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