From 4fbf7c2fb9bd253a2f08686cec0d121ee13a8552 Mon Sep 17 00:00:00 2001
From: risiko79 <risiko79@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 20 Sep 2016 17:53:31 +0000
Subject: [PATCH] 98_weekprofile: replace splice with delete remove warning
 'splice on reference is experimental'

git-svn-id: https://svn.fhem.de/fhem/trunk@12187 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_weekprofile.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_weekprofile.pm b/fhem/FHEM/98_weekprofile.pm
index 679002742..032f369db 100644
--- a/fhem/FHEM/98_weekprofile.pm
+++ b/fhem/FHEM/98_weekprofile.pm
@@ -302,7 +302,7 @@ sub weekprofile_refreshSendDevList($)
   my ($hash) = @_;
   my $me = $hash->{NAME};
   
-  splice($hash->{SNDDEVLIST});
+  delete $hash->{SNDDEVLIST};
   
   foreach my $d (keys %defs)   
   {
@@ -853,7 +853,7 @@ sub weekprofile_Notify($$)
       my ($what,$who) = split(' ',$s);
       
       if ($what =~ m/INITIALIZED/ || $what =~ m/REREADCFG/) {
-        splice($own->{PROFILES});
+        delete $own->{PROFILES};
         weekprofile_refreshSendDevList($own);
         weekprofile_assignDev($own);
         weekprofile_readProfilesFromFile($own);
@@ -1160,8 +1160,10 @@ sub weekprofile_getEditLNK_MasterDev($$)
 1;
 
 =pod
-=item helper
+=item summary    administration of weekprofiles
+=item summary_DE Verwaltung von Wochenprofilen
 
+=item helper
 =begin html
 
 <a name="weekprofile"></a>