--- deliantra/server/lib/cf.pm 2006/02/03 21:22:53 1.2 +++ deliantra/server/lib/cf.pm 2006/02/04 20:38:29 1.3 @@ -160,6 +160,7 @@ my $LIBDIR = maps_directory "perl"; for my $ext (<$LIBDIR/*.ext>) { + next unless -r $ext; eval { load_extension $ext; 1 @@ -171,11 +172,17 @@ my ($who, $arg) = @_; if ($who->flag (FLAG_WIZ)) { + $who->message ("reloading..."); + warn "reloading...\n"; unload_extension $_ for @exts; @exts = 0; load_extensions; warn "reloaded\n"; + + $who->message ("reloaded"); + } else { + $who->message ("Intruder Alert!"); } };