Fix some deprecated Perl syntax.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index bd10cd020475f50a4b3ca0db6e08108e3babead6..29c1785be99aa35f0ca3bae5de52765bfd2cadd9 100755 (executable)
--- 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'};
                        }