Fix some deprecated Perl syntax.
authorSteinar H. Gunderson <sgunderson@bigfoot.com>
Wed, 13 Nov 2013 19:17:18 +0000 (20:17 +0100)
committerSteinar H. Gunderson <sgunderson@bigfoot.com>
Wed, 13 Nov 2013 19:17:18 +0000 (20:17 +0100)
remoteglot.pl

index bd10cd0..29c1785 100755 (executable)
@@ -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'};
                        }