added retry

diff --git a/dialog.pl b/dialog.pl
index b0e630d..47bfe21 100755 (executable)
--- a/dialog.pl
+++ b/dialog.pl
@@ -36,20 +36,24 @@ sub v {
        my ($hex,$expect,$desc) = @_;
        my $bytes = hex2bytes( $hex );
        warn "# $desc\n";
        my ($hex,$expect,$desc) = @_;
        my $bytes = hex2bytes( $hex );
        warn "# $desc\n";

+retry:

        warn ">> ",as_hex( $bytes );
        $port->write( $bytes );
 
        my $data = $port->read(1);
        warn "<< len: ",ord($data);
        warn ">> ",as_hex( $bytes );
        $port->write( $bytes );
 
        my $data = $port->read(1);
        warn "<< len: ",ord($data);

+
+       goto retry if ord($data) == 0;
+

        $data .= $port->read(ord($data) - 1);
        warn "<< ",as_hex($data);
        warn "?? $expect\n" if $expect;
 
 }
 
        $data .= $port->read(ord($data) - 1);
        warn "<< ",as_hex($data);
        warn "?? $expect\n" if $expect;
 
 }
 

-#v '07 02 00 00 00 04 C4', "hardware version";
+v '07 02 00 00 00 04 C4', "hardware version";

 
 

-#v '07 0A 00 00 00 04 44', 'software version';
+v '07 0A 00 00 00 04 44', 'software version';

 
 v '07 00 01 00 06 0E EA', 'temperatures';
 
 
 v '07 00 01 00 06 0E EA', 'temperatures';