PERL WARNING: Use of uninitialized value $posAssignment
This commit is contained in:
Marko Oldenburg 2020-06-30 12:41:08 +02:00
parent 254c84ffe1
commit 7200ebfbb3
2 changed files with 5 additions and 4 deletions

View File

@ -6,7 +6,7 @@ UPD 2020-06-29_09:05:05 30157 lib/FHEM/Automation/ShuttersControl/Shutters.pm
UPD 2020-06-22_09:41:40 2175 lib/FHEM/Automation/ShuttersControl/Window.pm
UPD 2020-06-22_09:41:40 11454 lib/FHEM/Automation/ShuttersControl/Dev/Attr.pm
UPD 2020-06-22_09:41:40 7251 lib/FHEM/Automation/ShuttersControl/Dev/Readings.pm
UPD 2020-06-29_09:05:05 52344 lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
UPD 2020-06-30_12:34:40 52390 lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
UPD 2020-06-22_09:41:40 2903 lib/FHEM/Automation/ShuttersControl/Shutters/Readings.pm
UPD 2020-06-22_09:41:40 3972 lib/FHEM/Automation/ShuttersControl/Window/Attr.pm
UPD 2020-06-22_09:41:40 2288 lib/FHEM/Automation/ShuttersControl/Window/Readings.pm

View File

@ -110,9 +110,10 @@ sub _getPosition {
);
$posAssignment = (
$posAssignment =~ m{\A\d+(\.\d+)?\z}xms
? $posAssignment
: 'none'
defined($posAssignment)
&& $posAssignment =~ m{\A\d+(\.\d+)?\z}xms
? $posAssignment
: 'none'
);
}
else {