From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 2 Aug 2010 12:41:54 +0000 (+0200)
Subject: added timeouts
X-Git-Tag: RFID-Biblio-0.02~88
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=355a68dab9db9c91cc63c8ad85bc41a34f9a4a56;p=Biblio-RFID.git

added timeouts
---

diff --git a/lib/RFID/Biblio/3M810.pm b/lib/RFID/Biblio/3M810.pm
index 309dcf4..5868a78 100644
--- 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();
 
 }