From cfb3880a11aaacf1495fc1fe1b498be417833728 Mon Sep 17 00:00:00 2001
From: "klaus.schauer" <>
Date: Sun, 27 Sep 2020 06:42:19 +0000
Subject: [PATCH] 98_ModbusElsnerWS: windStrength calculation corrected

git-svn-id: https://svn.fhem.de/fhem/trunk@22864 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_ModbusElsnerWS.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_ModbusElsnerWS.pm b/fhem/FHEM/98_ModbusElsnerWS.pm
index 86b5fcaa1..3bb4e210f 100644
--- a/fhem/FHEM/98_ModbusElsnerWS.pm
+++ b/fhem/FHEM/98_ModbusElsnerWS.pm
@@ -4,6 +4,7 @@
 package main;
 use strict;
 use warnings;
+use DevIo;
 sub ModbusElsnerWS_Initialize($);
 
 my %ModbusElsnerWS_ParseInfo = (
@@ -42,7 +43,6 @@ my %ModbusElsnerWS_DeviceInfo = (
 
 sub ModbusElsnerWS_Initialize($) {
   my ($hash) = @_;
-  require "$attr{global}{modpath}/FHEM/DevIo.pm";
   LoadModule "Modbus";
 
   $hash->{parseInfo}  = \%ModbusElsnerWS_ParseInfo;  # defines registers, inputs, coils etc. for this Modbus Device
@@ -202,7 +202,7 @@ sub ModbusElsnerWS_Eval($$$) {
   $windSpeed = ModbusElsnerWS_readingsBulkUpdate($hash, "windSpeed", $windSpeed, 0.1, 0.3, "%0.1f");
   my @windStrength = (0.2, 1.5, 3.3, 5.4, 7.9, 10.7, 13.8, 17.1, 20.7, 24.4, 28.4, 32.6);
   my $windStrength = 0;
-  while($windSpeed > $windStrength[$windStrength] && $windStrength <= @windStrength + 1) {
+  while($windSpeed > $windStrength[$windStrength] && $windStrength < @windStrength) {
     $windStrength ++;
   }
   if ($hash->{INTERVAL} =~ m/^1$/ && (!exists($hash->{helper}{timer}{lastUpdate}) || $hash->{helper}{timer}{lastUpdate} < gettimeofday() - 60)) {