added timeouts

diff --git a/lib/RFID/Biblio/3M810.pm b/lib/RFID/Biblio/3M810.pm
index 309dcf4..5868a78 100644 (file)
--- a/lib/RFID/Biblio/3M810.pm
+++ b/lib/RFID/Biblio/3M810.pm
@@ -46,11 +46,18 @@ sub init {
        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();
 
 }