handle slower iio_info and skip sleep

[air-quality] / iio2mqtt.pl

diff --git a/iio2mqtt.pl b/iio2mqtt.pl
index 14c9430..40c4983 100755 (executable)
--- a/iio2mqtt.pl
+++ b/iio2mqtt.pl
@@ -57,5 +57,8 @@ while(1) {
        system "curl --silent -XPOST '$influx_url' --data-binary '$influx'";
        warn "$influx\n";
 
        system "curl --silent -XPOST '$influx_url' --data-binary '$influx'";
        warn "$influx\n";
 

-       sleep Time::HiRes::time + $delay - $t;
+       my $dt = Time::HiRes::time + $delay - $t - 100;
+       if ( $dt > 0 ) {
+               sleep $dt;
+       }

 }
 }