Fix a minor bug in read_line().
authorSteinar H. Gunderson <sgunderson@bigfoot.com>
Wed, 13 Nov 2013 22:50:39 +0000 (23:50 +0100)
committerSteinar H. Gunderson <sgunderson@bigfoot.com>
Wed, 13 Nov 2013 22:50:39 +0000 (23:50 +0100)
remoteglot.pl

index baed79a..3ec241b 100755 (executable)
@@ -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});