Changeset 16405

Timestamp:

07/25/08 14:15:20 (5 years ago)

Author:

junichiro

Message:

デバッグライトをコメントアウトごと除去(それと、git の練習)

Files:

• lang/perl/Games-Go/trunk/lib/Games/Go/Play.pm (modified) (1 diff)

lang/perl/Games-Go/trunk/lib/Games/Go/Play.pm

@@ -71 +71 @@
         $OUT   => '  ',
     };
-#    print "    ";
     for ( my $x = 1 ; $x <= $self->{'size'} ; $x++ ) {
-#        printf( "% 2s", $x );
         $board .= sprintf( "% 2s", $x );
     }
-#    print "\n";
     $board .= "\n";
     my $i = 0;
     foreach my $x ( @{ $self->{'board'} } ) {
-#        printf( "% 2s", $i ) if ($i);
         $board .= sprintf( "% 2s", $i ) if ($i);
         foreach ( @{$x} ) {
-#            print $symbol->{$_};
             $board .= $symbol->{$_};
         }
-#        print "\n";
         $board .= "\n";
         $i++;