… | |
… | |
11 | use Event; |
11 | use Event; |
12 | $Event::Eval = 1; # no idea why this is required, but it is |
12 | $Event::Eval = 1; # no idea why this is required, but it is |
13 | |
13 | |
14 | use strict; |
14 | use strict; |
15 | |
15 | |
16 | _reload_1; |
16 | _init_vars; |
17 | |
17 | |
18 | our %COMMAND = (); |
18 | our %COMMAND = (); |
19 | our @EVENT; |
19 | our @EVENT; |
20 | our $LIBDIR = maps_directory "perl"; |
20 | our $LIBDIR = maps_directory "perl"; |
21 | |
21 | |
… | |
… | |
695 | $msg->("reloading cf.pm"); |
695 | $msg->("reloading cf.pm"); |
696 | require cf; |
696 | require cf; |
697 | |
697 | |
698 | $msg->("load extensions"); |
698 | $msg->("load extensions"); |
699 | cf::load_extensions; |
699 | cf::load_extensions; |
|
|
700 | |
|
|
701 | $msg->("reattach"); |
|
|
702 | _global_reattach; |
700 | }; |
703 | }; |
701 | $msg->($@) if $@; |
704 | $msg->($@) if $@; |
702 | |
705 | |
703 | $msg->("reloaded"); |
706 | $msg->("reloaded"); |
704 | }; |
707 | }; |
… | |
… | |
923 | $TICK_WATCHER->at ($NEXT_TICK); |
926 | $TICK_WATCHER->at ($NEXT_TICK); |
924 | $TICK_WATCHER->start; |
927 | $TICK_WATCHER->start; |
925 | }, |
928 | }, |
926 | ); |
929 | ); |
927 | |
930 | |
928 | _reload_2; |
|
|
929 | |
|
|
930 | 1 |
931 | 1 |
931 | |
932 | |