X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=Board.pm;h=3d832781bc2b1d4dc84b89daa3b933b2d57dcdd0;hp=ff2828af82b03c60f6e2fcef4dd341e8d2d6ed0e;hb=71b759f677572c77367ec2ba12c5c67fc0e941b7;hpb=2ec5e8902926f0e192fb119f3955dab2564816aa

diff --git a/Board.pm b/Board.pm
index ff2828a..3d83278 100644
--- 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;