fixes #22

PERL WARNING: Use of uninitialized value $posAssignment
2020-06-30 12:41:08 +02:00
parent 254c84ffe1
commit 7200ebfbb3
2 changed files with 5 additions and 4 deletions
--- a/lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
+++ b/lib/FHEM/Automation/ShuttersControl/Shutters/Attr.pm
@ -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 {