From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 9 Oct 2014 14:52:05 +0000 (+0200)
Subject: open usb serial ports and normal serials
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=522892f415c07944b8e799715c5d57935481d8a5;p=Biblio-RFID.git

open usb serial ports and normal serials
---

diff --git a/lib/Biblio/RFID/Reader/Serial.pm b/lib/Biblio/RFID/Reader/Serial.pm
index 39282f0..f954f39 100644
--- a/lib/Biblio/RFID/Reader/Serial.pm
+++ b/lib/Biblio/RFID/Reader/Serial.pm
@@ -29,7 +29,7 @@ sub new {
 
 =head2 port
 
-Tries to open usb serial ports C</dev/ttyUSB*>
+Tries to open usb serial ports C</dev/ttyUSB*> and serial ports C</dev/ttyS*>
 
   my $serial_obj = $self->port;
 
@@ -45,7 +45,7 @@ sub port {
 	return $self->{port} if defined $self->{port};
 
 	my $settings = $self->serial_settings;
-	my @devices  = $ENV{RFID_DEVICE} ? ( $ENV{RFID_DEVICE} ) : glob '/dev/ttyUSB*';
+	my @devices  = $ENV{RFID_DEVICE} ? ( $ENV{RFID_DEVICE} ) : glob '/dev/ttyUSB* /dev/ttyS*';
 	warn "# port devices ",dump(@devices);
 
 	foreach my $device ( @devices ) {