fhem.pl: add $hash->{CL} to CommandDelete (Forum #95875)

git-svn-id: https://svn.fhem.de/fhem/trunk@18259 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2019-01-14 20:35:10 +00:00
parent 1875076db1
commit 7a52a55488
1 changed files with 4 additions and 0 deletions
--- 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