… | |
… | |
155 | |
155 | |
156 | Symbol::delete_package $pkg; |
156 | Symbol::delete_package $pkg; |
157 | } |
157 | } |
158 | |
158 | |
159 | sub load_extensions { |
159 | sub load_extensions { |
160 | my $LIBDIR = get_maps_directory "perl"; |
160 | my $LIBDIR = maps_directory "perl"; |
161 | |
161 | |
162 | for my $ext (<$LIBDIR/*.ext>) { |
162 | for my $ext (<$LIBDIR/*.ext>) { |
163 | load_extension $ext; |
163 | load_extension $ext; |
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; |