--- deliantra/server/lib/cf.pm 2007/01/10 22:50:12 1.159 +++ deliantra/server/lib/cf.pm 2007/01/10 22:54:06 1.160 @@ -989,7 +989,7 @@ $pkg =~ s/[^[:word:]]/_/g; $pkg = "ext::$pkg"; - warn "loading '$path' into '$pkg'\n"; + warn "... loading '$path' into '$pkg'\n"; open my $fh, "<:utf8", $path or die "$path: $!"; @@ -2316,7 +2316,7 @@ warn "unload/nuke all extensions"; for my $pkg (@EXTS) { - warn "unloading <$pkg>"; + warn "... unloading $pkg"; if (my $cb = $pkg->can ("unload")) { eval { @@ -2325,6 +2325,7 @@ } or warn "$pkg unloaded, but with errors: $@"; } + warn "... nuking $pkg"; Symbol::delete_package $pkg; }