my $self = shift;
$port = $self->port;
+ # disable timeouts
+ $port->read_char_time(0);
+ $port->read_const_time(0);
+
# drain on startup
my ( $count, $str ) = $port->read(3);
my $data = $port->read( ord(substr($str,2,1)) );
warn "drain ",as_hex( $str, $data ),"\n";
+ $port->read_char_time(100); # 0.1 s char timeout
+ $port->read_const_time(500); # 0.5 s read timeout
+
setup();
}