From 7f9d030c0ea78362dc8f1d5d18387c9605f82723 Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Wed, 13 Nov 2013 20:17:18 +0100 Subject: [PATCH] Fix some deprecated Perl syntax. --- remoteglot.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'}; } -- 2.39.2