Small microoptimization in Board::clone.

diff --git a/Board.pm b/Board.pm
index ff2828a..3d83278 100644 (file)
--- a/Board.pm
+++ b/Board.pm
@@ -25,9 +25,7 @@ sub clone {
        my $nb = [];
 
        for my $row (0..7) {
-               for my $col (0..7) {
-                       $nb->[$row][$col] = $board->[$row][$col];
-               }
+               $nb->[$row] = [ @{$board->[$row]} ];
        }
 
        return bless $nb;