brmlab/lasic
4
0
Fork 0
mirror of https://github.com/brmlab/lasic.git synced 2025-06-07 08:45:04 +02:00
Code Issues Projects Releases Packages Wiki Activity

Brm::Lasic: Work around kernel icanon race condition

Browse source
This commit is contained in:
Petr Baudis 2011-12-28 06:55:07 +01:00
parent 360e7338b8
commit 77df4005ec
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
perl/Brm/Lasic.pm
View file

@ -90,6 +90,7 @@ sub BUILD {
$self->port->parity("none");
$self->port->stopbits(1);
$self->port->handshake("none");
$self->port->stty_icanon(0);
$self->port->write_settings();
$self->port->read_const_time(500);
# Yes, output record separator != input record separator!
@ -177,9 +178,10 @@ sub msg {
print $fd join(' ', @args);
my $msg;
do {
$msg = <$fd>;
# $msg = <$fd> tends to induce writes stuck in the kernel?!
$msg = $self->port()->lookfor(1);
} while (not $msg);
# print "(rep: $msg)\n";
# print "\t(rep: $msg)\n";
}
=back