| … | |
… | |
| 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"; |
