… | … | ||
---|---|---|---|
158 | 158 | ||
159 | sub load_extensions { | 159 | sub load_extensions { |
160 | my $LIBDIR = maps_directory "perl"; | 160 | my $LIBDIR = maps_directory "perl"; |
161 | 161 | ||
162 | for my $ext (<$LIBDIR/*.ext>) { | 162 | for my $ext (<$LIBDIR/*.ext>) { |
163 | eval { | ||
163 | load_extension $ext; | 164 | load_extension $ext; |
165 | 1 | ||
166 | } or warn "$ext not loaded: $@"; | ||
164 | } | 167 | } |
165 | } | 168 | } |
166 | 169 | ||
167 | register_command "perl-reload", 0, sub { | 170 | register_command "perl-reload", 0, sub { |
168 | my ($who, $arg) = @_; | 171 | my ($who, $arg) = @_; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |