From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sat, 20 Sep 2014 12:09:22 +0000 (+0200)
Subject: Small microoptimization in Board::clone.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=71b759f677572c77367ec2ba12c5c67fc0e941b7

Small microoptimization in Board::clone.
---

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;