From f1caf321ec520ea7be8d9d36c14217ac44bbd2e7 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Mon, 14 Jan 2019 20:35:10 +0000
Subject: [PATCH] fhem.pl: add $hash->{CL} to CommandDelete (Forum #95875)

git-svn-id: https://svn.fhem.de/fhem/trunk@18259 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 6bd857c97..04b29f5e1 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2179,16 +2179,20 @@ CommandDelete($$)
       next;
     }
 
+    $defs{$sdev}->{CL} = $cl;
     my $ret = CallFn($sdev, "UndefFn", $defs{$sdev}, $sdev);
     if($ret) {
       push @rets, $ret;
+      delete $defs{$sdev}->{CL};
       next;
     }
     $ret = CallFn($sdev, "DeleteFn", $defs{$sdev}, $sdev);
     if($ret) {
       push @rets, $ret;
+      delete $defs{$sdev}->{CL};
       next;
     }
+    delete $defs{$sdev}->{CL};
 
 
     # Delete releated hashes