Fix a minor bug in read_line().

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index baed79ae476cb47cadbd7a9973d6998d9dc4974c..3ec241ba04c422c15c2ba9bd7a4cdef8525b9b95 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -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});