From fc77f8dc666211735d4b986de86ab3fb2c8c5f1f Mon Sep 17 00:00:00 2001
From: 50watt <>
Date: Sat, 1 Dec 2018 13:19:56 +0000
Subject: [PATCH] 70_PIONEERAVR: fixed PERL WARNINGS

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

diff --git a/FHEM/70_PIONEERAVR.pm b/FHEM/70_PIONEERAVR.pm
index 052b85f46..ef48b7126 100644
--- a/FHEM/70_PIONEERAVR.pm
+++ b/FHEM/70_PIONEERAVR.pm
@@ -274,16 +274,18 @@ sub PIONEERAVR_Define($$) {
 		$inputNr = sprintf '%02d', $i;
 		$inputindex = "PIONEERAVR_InputAlias_".$inputNr;
 		my ($err, $data) = getKeyValue($inputindex);
-		if ((!defined $err) && ($data ne '')) {
+		if ((defined $data) && ($data ne '')) {
 			$hash->{helper}{INPUTNAMES}->{$inputNr}{aliasName} = $data;
 		};
 		$inputindex = "PIONEERAVR_InputEnabled_".$inputNr;
-		my ($err, $data) = getKeyValue($inputindex);
-		if ((!defined $err) && ($data ne '')) {
-			$hash->{helper}{INPUTNAMES}->{$inputNr}{enabled} = $data;
+		my ($err1, $data1) = getKeyValue($inputindex);
+		if ((defined $data1) && ($data1 ne '')) {
+			$hash->{helper}{INPUTNAMES}->{$inputNr}{enabled} = $data1;
 		};
 		undef $err;
 		undef $data;
+		undef $err1;
+		undef $data1;
 	};
 
   # ----------------Human Readable command mapping table for "set" commands-----------------------