use Data::Dump qw(dump);
use Device::SerialPort qw(:STAT);
+my $debug = $ENV{DEBUG} || 0;
+
my $port = Device::SerialPort->new('/dev/ttyUSB0');
$port->baudrate(9600);
$port->databits(8);
$port->write( $bytes );
my $data = $port->read(1);
- warn "<< len: ",ord($data);
+ warn "<< len: ",ord($data) if $debug;
goto retry if ord($data) == 0;
v '07 00 01 00 06 0E EA', 'temperatures';
+v '07 00 00 00 26 0A A6', 'last errros';
+
+v '07 00 00 00 26 00 AC', 'last errros (with invalid length)';