Fix UCI id parsing.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index baed79ae476cb47cadbd7a9973d6998d9dc4974c..6ee0f8646ec9a44e420cf50eb433bedb8b422bc7 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -271,7 +271,7 @@ sub parse_ids {
                if ($x[0] =~ /^(name|author)$/) {
                        my $key = shift @x;
                        my $value = join(' ', @x);
-                       $engine->{'info'}{'id'}{$key} = $value;
+                       $engine->{'id'}{$key} = $value;
                        last;
                }
 
@@ -1089,7 +1089,7 @@ sub read_line {
        my $line = '';
        while ($line !~ /\n/) {
                my $tmp;
-               my $ret = sysread $engine->{'read'}, $tmp, 1;
+               my $ret = sysread $fh, $tmp, 1;
 
                if (!defined($ret)) {
                        next if ($!{EINTR});