| 1 | package cf; |
1 | package cf; |
| 2 | |
2 | |
| 3 | use Symbol; |
3 | use Symbol; |
| 4 | use List::Util; |
4 | use List::Util; |
| 5 | use Storable; |
5 | use Storable; |
|
|
6 | |
| 6 | use Event; |
7 | use Event; |
|
|
8 | $Event::Eval = 1; # no idea why this is required, but it is |
| 7 | |
9 | |
| 8 | use strict; |
10 | use strict; |
| 9 | |
11 | |
| 10 | our %COMMAND; |
12 | our %COMMAND; |
| 11 | our @EVENT; |
13 | our @EVENT; |
| … | |
… | |
| 214 | if ($who->flag (FLAG_WIZ)) { |
216 | if ($who->flag (FLAG_WIZ)) { |
| 215 | $who->message ("reloading..."); |
217 | $who->message ("reloading..."); |
| 216 | |
218 | |
| 217 | warn "reloading...\n"; |
219 | warn "reloading...\n"; |
| 218 | eval { |
220 | eval { |
|
|
221 | $_->cancel for Event::all_watchers; |
|
|
222 | |
| 219 | unload_extension $_ for @exts; |
223 | unload_extension $_ for @exts; |
| 220 | delete $INC{"cf.pm"}; |
224 | delete $INC{"cf.pm"}; |
| 221 | |
225 | |
| 222 | # don't, removes xs symbols, too |
226 | # don't, removes xs symbols, too |
| 223 | #Symbol::delete_package $pkg; |
227 | #Symbol::delete_package $pkg; |
