From cec6f663f1dc726d3db399488aa9ccc3f7d28731 Mon Sep 17 00:00:00 2001
From: Marko Oldenburg <leongaultier@gmail.com>
Date: Fri, 1 May 2020 18:30:28 +0200
Subject: [PATCH] fix Cant use string (enable) as an ARRAY ref while strict
 refs in use bug

---
 74_GardenaSmartDevice.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/74_GardenaSmartDevice.pm b/74_GardenaSmartDevice.pm
index 53ba1c5..2d4eaf2 100644
--- a/74_GardenaSmartDevice.pm
+++ b/74_GardenaSmartDevice.pm
@@ -831,10 +831,13 @@ sub Zulu2LocalString {
 }
 
 sub SetPredefinedStartPoints {
-    my $hash = shift;
-    my $a    = shift;
+    my $hash                = shift;
+    my $aArg                = shift;
 
-    my ( $startpoint_state, $startpoint_num, @morestartpoints ) = @$a;
+    my $startpoint_state    = shift @$aArg;
+    my $startpoint_num      = shift @$aArg;
+    
+    my @morestartpoints     = @{$aArg};
 
     my $name = $hash->{NAME};
     my $payload;