FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

70_PIONEERAVR: fixed PERL WARNINGS

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17876 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
50watt 2018-12-01 13:19:56 +00:00
parent 57c2ec78bd
commit 1d1dc5dc7a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/70_PIONEERAVR.pm
View File

@ -274,16 +274,18 @@ sub PIONEERAVR_Define($$) {
$inputNr = sprintf '%02d', $i; $inputNr = sprintf '%02d', $i;
$inputindex = "PIONEERAVR_InputAlias_".$inputNr; $inputindex = "PIONEERAVR_InputAlias_".$inputNr;
my ($err, $data) = getKeyValue($inputindex); my ($err, $data) = getKeyValue($inputindex);
if ((!defined $err) && ($data ne '')) { if ((defined $data) && ($data ne '')) {
$hash->{helper}{INPUTNAMES}->{$inputNr}{aliasName} = $data; $hash->{helper}{INPUTNAMES}->{$inputNr}{aliasName} = $data;
}; };
$inputindex = "PIONEERAVR_InputEnabled_".$inputNr; $inputindex = "PIONEERAVR_InputEnabled_".$inputNr;
my ($err, $data) = getKeyValue($inputindex); my ($err1, $data1) = getKeyValue($inputindex);
if ((!defined $err) && ($data ne '')) { if ((defined $data1) && ($data1 ne '')) {
$hash->{helper}{INPUTNAMES}->{$inputNr}{enabled} = $data; $hash->{helper}{INPUTNAMES}->{$inputNr}{enabled} = $data1;
}; };
undef $err; undef $err;
undef $data; undef $data;
undef $err1;
undef $data1;
}; };
# ----------------Human Readable command mapping table for "set" commands----------------------- # ----------------Human Readable command mapping table for "set" commands-----------------------