| … | … | ||
|---|---|---|---|
| 164 | } | 164 | } |
| 165 | } | 165 | } |
| 166 | 166 | ||
| 167 | register_command "perl-reload", 0, sub { | 167 | register_command "perl-reload", 0, sub { |
| 168 | my ($who, $arg) = @_; | 168 | my ($who, $arg) = @_; |
| 169 | warn $who->name; | 169 | |
| 170 | if ($who->flag (FLAG_WIZ)) { | 170 | if ($who->flag (FLAG_WIZ)) { |
| 171 | warn "reloading...\n"; | 171 | warn "reloading...\n"; |
| 172 | unload_extension $_ for @exts; | 172 | unload_extension $_ for @exts; |
| 173 | @exts = 0; | 173 | @exts = 0; |
| 174 | load_extensions; | 174 | load_extensions; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |