FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-09 20:57:11 +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;
$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-----------------------