From 71b759f677572c77367ec2ba12c5c67fc0e941b7 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sat, 20 Sep 2014 14:09:22 +0200
Subject: [PATCH] Small microoptimization in Board::clone.

---
 Board.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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;
-- 
2.39.2