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

---
 74_GardenaSmartDevice.pm | 12 ++++--------
 1 file changed, 4 insertions(+), 8 deletions(-)

diff --git a/74_GardenaSmartDevice.pm b/74_GardenaSmartDevice.pm
index 3323e29..5605e67 100644
--- a/74_GardenaSmartDevice.pm
+++ b/74_GardenaSmartDevice.pm
@@ -298,8 +298,7 @@ sub Set {
     elsif ( lc $cmd eq 'startpoint' ) {
         my $err;
 
-        print Dumper $aArg;
-#         ( $err, $payload, $abilities ) = SetPredefinedStartPoints( $hash, @$aArg );
+        ( $err, $payload, $abilities ) = SetPredefinedStartPoints( $hash, $aArg );
         return $err if ( defined($err) );
 
     }
@@ -834,13 +833,10 @@ sub Zulu2LocalString {
 }
 
 sub SetPredefinedStartPoints {
-    my $hash                = shift;
-    my $aArg                = shift;
+    my $hash                                                = shift;
+    my $aArg                                                = shift;
 
-    my $startpoint_state    = shift @$aArg;
-    my $startpoint_num      = shift @$aArg;
-    
-    my @morestartpoints     = @{$aArg};
+    my ($startpoint_state,$startpoint_num,@morestartpoints) = @{$aArg};
 
     my $name = $hash->{NAME};
     my $payload;