--- deliantra/server/lib/cf.pm	2006/12/31 17:29:22	1.106
+++ deliantra/server/lib/cf.pm	2006/12/31 18:10:40	1.107
@@ -1283,7 +1283,7 @@
 #############################################################################
 # initialisation
 
-sub _perl_reload() {
+sub perl_reload() {
    # can/must only be called in main
    if ($Coro::current != $Coro::main) {
       warn "can only reload from main coroutine\n";
@@ -1375,18 +1375,15 @@
    warn "reloaded successfully";
 };
 
-sub perl_reload() {
-   _perl_reload;
-}
-
 register "<global>", __PACKAGE__;
 
 register_command "perl-reload" => sub {
    my ($who, $arg) = @_;
 
    if ($who->flag (FLAG_WIZ)) {
-      $who->message ("reloading...");
-      _perl_reload;
+      $who->message ("start of reload.");
+      perl_reload;
+      $who->message ("end of reload.");
    }
 };