--- deliantra/maps/perl/commands.ext	2006/09/14 19:36:17	1.2
+++ deliantra/maps/perl/commands.ext	2006/09/14 19:39:09	1.3
@@ -5,8 +5,6 @@
 sub rename_to($$$) {
    my ($ob, $from, $to) = @_;
 
-   warn "<$ob|$from|$to>\n";#d#
-
    $to =~ /^[a-zA-Z0-9.,=#\/%$!^]*$/
       or return $ob->message ("rename: name must consist only of letters, digits, spaces and a few other things.");
 
@@ -41,8 +39,6 @@
 cf::register_command rename => 0, sub {
    my ($ob, $arg) = @_;
 
-   warn "<<<$arg>>>\n";#d#
-
    if ($arg =~ /^\s* (?: <([^>]+)> \s+)? to \s+ <([^>]+)> \s*$/x) {
       # compatibility syntax
       rename_to $ob, $1, $2;