From 9ff1e5e5620090c8fe804440c208633f39d687e2 Mon Sep 17 00:00:00 2001
From: Sidey <Sidey@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 17 Jan 2022 20:54:34 +0000
Subject: [PATCH] 14_SD_WS09.pm:

- some perlcritic fixes

git-svn-id: https://svn.fhem.de/fhem/trunk@25486 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/14_SD_WS09.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/fhem/FHEM/14_SD_WS09.pm b/fhem/FHEM/14_SD_WS09.pm
index 108839caf..1451a23ee 100644
--- a/fhem/FHEM/14_SD_WS09.pm
+++ b/fhem/FHEM/14_SD_WS09.pm
@@ -65,7 +65,7 @@ sub SD_WS09_Define($$) {
 	$hash->{MODEL} = $model;
 
 	my $name= $hash->{NAME};
-	return undef;
+	return ;
 }
 
 #####################################
@@ -75,7 +75,7 @@ sub SD_WS09_Undef($$) {
 	delete($modules{SD_WS09}{defptr}{$hash->{CODE}})
 		if(defined($hash->{CODE}) &&
 			defined($modules{SD_WS09}{defptr}{$hash->{CODE}}));
-	return undef;
+	return ;
 }
 
 ###################################
@@ -151,7 +151,7 @@ sub SD_WS09_Parse($$) {
 
 		if ($syncpos ==-1 || length($bitData)-$syncpos < $minL2) {
 			Log3 $iohash, 4, "$name: SD_WS09_Parse EXIT: msg=$rawData syncp=$syncpos length:".length($bitData) ;
-			return undef;
+			return ;
 		}
 	}
 
@@ -285,7 +285,7 @@ sub SD_WS09_Parse($$) {
 		} else {
 			Log3 $iohash, 4, "$name: SD_WS09_Parse_Ex Exit: msg=$rawData length:".length($sensdata) ;
 			Log3 $iohash, 4, "$name: SD_WS09_WH10 Exit:  Model=$model " ;
-			return undef;
+			return ;
 		}
 	} else {
 		# es wird eine CTW600 angenommen 
@@ -317,7 +317,7 @@ sub SD_WS09_Parse($$) {
 			Log3 $iohash, 4, "$name: SD_WS09_Parse_17 ".$model." Rain bit: ".substr($sensdata,46,16)." Dec: " . $rain ;           
 		} else {
 			Log3 $iohash, 4, "$name: SD_WS09_Parse_18 CTW600 EXIT: msg=$bitData length:".length($bitData) ;
-			return undef;
+			return ;
 		}
 	}
 
@@ -326,11 +326,11 @@ sub SD_WS09_Parse($$) {
 
 	if($hum > 100 || $hum < 0) {
 		Log3 $iohash, 4, "$name: SD_WS09_Parse HUM: hum=$hum msg=$rawData " ;
-		return undef;
+		return ;
 	} 
 	if($temp > 60 || $temp < -40) {
 		Log3 $iohash, 4, "$name: SD_WS09_Parse TEMP: Temp=$temp msg=$rawData " ;
-		return undef;
+		return ;
 	} 
 
 	my $longids = AttrVal($iohash->{NAME},'longids',0);
@@ -357,7 +357,7 @@ sub SD_WS09_Parse($$) {
 		my $minsecs = AttrVal($iohash->{NAME},'minsecs',0);
 		if($hash->{lastReceive} && (time() - $hash->{lastReceive} < $minsecs)) {
 			Log3 $hash, 4, "SD_WS09_Parse_End $deviceCode Dropped due to short time. minsecs=$minsecs";
-			return undef;
+			return ;
 		}
 	}
 
@@ -484,7 +484,7 @@ sub SD_WS09_Attr(@) {
 	my $cde = $hash->{CODE};
 	delete($modules{SD_WS09}{defptr}{$cde});
 	$modules{SD_WS09}{defptr}{$iohash->{NAME} . "." . $cde} = $hash;
-	return undef;
+	return ;
 }
 
 ###################################