… | |
… | |
2128 | $LINK_MAP->{path} = bless { path => "{link}" }, "cf::path"; |
2128 | $LINK_MAP->{path} = bless { path => "{link}" }, "cf::path"; |
2129 | $LINK_MAP->in_memory (MAP_IN_MEMORY); |
2129 | $LINK_MAP->in_memory (MAP_IN_MEMORY); |
2130 | |
2130 | |
2131 | # dirty hack because... archetypes are not yet loaded |
2131 | # dirty hack because... archetypes are not yet loaded |
2132 | Event->timer ( |
2132 | Event->timer ( |
2133 | after => 2, |
2133 | after => 10, |
2134 | cb => sub { |
2134 | cb => sub { |
2135 | $_[0]->w->cancel; |
2135 | $_[0]->w->cancel; |
2136 | |
2136 | |
2137 | # provide some exits "home" |
2137 | # provide some exits "home" |
2138 | my $exit = cf::object::new "exit"; |
2138 | my $exit = cf::object::new "exit"; |