--- deliantra/maps/perl/cf.pm	2006/02/03 07:25:25	1.1
+++ deliantra/maps/perl/cf.pm	2006/02/03 07:42:11	1.2
@@ -166,7 +166,7 @@
 
 register_command "perl-reload", 0, sub {
    my ($who, $arg) = @_;
-   warn $who->name;
+
    if ($who->flag (FLAG_WIZ)) {
       warn "reloading...\n";
       unload_extension $_ for @exts;