From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Wed, 13 Nov 2013 19:17:18 +0000 (+0100)
Subject: Fix some deprecated Perl syntax.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=7f9d030c0ea78362dc8f1d5d18387c9605f82723;ds=sidebyside

Fix some deprecated Perl syntax.
---

diff --git a/remoteglot.pl b/remoteglot.pl
index bd10cd0..29c1785 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -586,7 +586,7 @@ sub output_screen {
 	# specified.
 	#
 	if (exists($uciinfo{'pv1'}) && !exists($uciinfo{'pv2'})) {
-		for my $key qw(pv score_cp score_mate nodes nps depth seldepth tbhits) {
+		for my $key (qw(pv score_cp score_mate nodes nps depth seldepth tbhits)) {
 			if (exists($uciinfo{$key . '1'}) && !exists($uciinfo{$key})) {
 				$uciinfo{$key} = $uciinfo{$key . '1'};
 			}