… | |
… | |
37 | use CFClient; |
37 | use CFClient; |
38 | use CFClient::OpenGL (); |
38 | use CFClient::OpenGL (); |
39 | use CFClient::Protocol; |
39 | use CFClient::Protocol; |
40 | use CFClient::UI; |
40 | use CFClient::UI; |
41 | use CFClient::MapWidget; |
41 | use CFClient::MapWidget; |
|
|
42 | |
|
|
43 | $SIG{QUIT} = sub { Carp::cluck "QUIT" }; |
42 | |
44 | |
43 | $Event::DIED = sub { |
45 | $Event::DIED = sub { |
44 | # TODO: display dialog box or so |
46 | # TODO: display dialog box or so |
45 | Carp::confess $_[1];#d#TODO: remove when stable |
47 | Carp::confess $_[1];#d#TODO: remove when stable |
46 | CFClient::error $_[1]; |
48 | CFClient::error $_[1]; |