From 56a8ffeda96f71b39f4c09fd68861cd1b04dd0e0 Mon Sep 17 00:00:00 2001
From: risiko79 <>
Date: Tue, 28 Jun 2016 09:46:06 +0000
Subject: [PATCH] 10_pilight_ctrl: FIX: Experimental splice on scalar is now
 forbidden

git-svn-id: https://svn.fhem.de/fhem/trunk@11722 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED                 | 1 +
 fhem/FHEM/10_pilight_ctrl.pm | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 03572239a..4c4052b16 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix:  10_pilight_ctrl: Experimental splice on scalar is now forbidden.
   - feature: 73_GasCalculator: "set" and "get" - command in GUI implemented.
   - bugfix:  50_TelegramBot: Unicode / Umlaute handling reworked
   - changed: 30_MilightBridge: Specify port in define
diff --git a/fhem/FHEM/10_pilight_ctrl.pm b/fhem/FHEM/10_pilight_ctrl.pm
index 60152df4d..89d499434 100644
--- a/fhem/FHEM/10_pilight_ctrl.pm
+++ b/fhem/FHEM/10_pilight_ctrl.pm
@@ -41,6 +41,7 @@
 # V 1.14 2016-03-20 - FIX: send delimiter to signal end of stream if length of data > 1024
 # V 1.15 2016-03-28 - NEW: protocol daycom (switch)
 # V 1.16 2016-06-02 - NEW: protocol oregon_21 (temp)
+# V 1.17 2016-06-28 - FIX: Experimental splice on scalar is now forbidden - use explizit array notation
 ############################################## 
 package main;
 
@@ -194,7 +195,7 @@ sub pilight_ctrl_Close($)
     delete($hash->{helper}{RUNNING_PID}); 
   }
    
-  splice($hash->{helper}->{sendQueue});
+  splice(@{$hash->{helper}->{sendQueue}});
   
   RemoveInternalTimer($hash);
   Log3 $me, 5, "$me(Close): close DevIo";
@@ -562,7 +563,7 @@ sub pilight_ctrl_addWhiteList($$)
 sub pilight_ctrl_createWhiteList($)
 {
   my ($own) = @_;
-  splice($own->{helper}->{whiteList});
+  splice(@{$own->{helper}->{whiteList}});
   foreach my $d (keys %defs)   
   { 
     my $module   = $defs{$d}{TYPE};