| … | |
… | |
| 1555 | |
1555 | |
| 1556 | while (my ($k, $v) = each %todo) { |
1556 | while (my ($k, $v) = each %todo) { |
| 1557 | cf::cleanup "mandatory extension '$k' has unresolved dependencies, exiting." |
1557 | cf::cleanup "mandatory extension '$k' has unresolved dependencies, exiting." |
| 1558 | if exists $v->{meta}{mandatory}; |
1558 | if exists $v->{meta}{mandatory}; |
| 1559 | } |
1559 | } |
|
|
1560 | |
|
|
1561 | last; |
| 1560 | } |
1562 | } |
| 1561 | } |
1563 | } |
| 1562 | }; |
1564 | }; |
| 1563 | } |
1565 | } |
| 1564 | |
1566 | |
| … | |
… | |
| 1992 | |
1994 | |
| 1993 | Carp::cluck "unable to resolve path '$path' (base '$base')"; |
1995 | Carp::cluck "unable to resolve path '$path' (base '$base')"; |
| 1994 | () |
1996 | () |
| 1995 | } |
1997 | } |
| 1996 | |
1998 | |
|
|
1999 | # may re-bless or do other evil things |
| 1997 | sub init { |
2000 | sub init { |
| 1998 | my ($self) = @_; |
2001 | my ($self) = @_; |
| 1999 | |
2002 | |
| 2000 | $self |
2003 | $self |
| 2001 | } |
2004 | } |
| … | |
… | |
| 3655 | |
3658 | |
| 3656 | sub main { |
3659 | sub main { |
| 3657 | cf::init_globals; # initialise logging |
3660 | cf::init_globals; # initialise logging |
| 3658 | |
3661 | |
| 3659 | LOG llevInfo, "Welcome to Deliantra, v" . VERSION; |
3662 | LOG llevInfo, "Welcome to Deliantra, v" . VERSION; |
| 3660 | LOG llevInfo, "Copyright (C) 2005-2010 Marc Alexander Lehmann / Robin Redeker / the Deliantra team."; |
3663 | LOG llevInfo, "Copyright (C) 2005-2011 Marc Alexander Lehmann / Robin Redeker / the Deliantra team."; |
| 3661 | LOG llevInfo, "Copyright (C) 1994 Mark Wedel."; |
3664 | LOG llevInfo, "Copyright (C) 1994 Mark Wedel."; |
| 3662 | LOG llevInfo, "Copyright (C) 1992 Frank Tore Johansen."; |
3665 | LOG llevInfo, "Copyright (C) 1992 Frank Tore Johansen."; |
| 3663 | |
3666 | |
| 3664 | $Coro::current->prio (Coro::PRIO_MAX); # give the main loop max. priority |
3667 | $Coro::current->prio (Coro::PRIO_MAX); # give the main loop max. priority |
| 3665 | |
3668 | |
