ctdo
/
crashtest-r0ket
16
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Force serial to non-blocking.

This commit is contained in:
Stefan `Sec` Zehl 2012-05-06 23:37:28 +02:00
parent 5b7e0a38ce
commit a5ae20daff
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tools/mesh/lib/r0ket.pm
View File

@ -8,7 +8,7 @@ use IO::Select;
package r0ket;
use Digest::CRC qw(crcccitt);
use POSIX qw(strftime);
use POSIX qw(strftime VTIME VMIN TCSANOW);
use Time::HiRes;
our $verbose=0;
@ -328,6 +328,14 @@ sub r0ket_init{
if($verbose){
print "using: $ser\n";
};
# Set serial to non-blocking:
my ($term)=POSIX::Termios->new();
$term->getattr(fileno($bridge));
$term->setcc(VTIME,1);
$term->setcc(VMIN,0);
$term->setattr(fileno($bridge),TCSANOW);
return $ser;
};