From 5d9c62aa4a20e8e157333a8f1ecb347b23c3b63c Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Thu, 22 Nov 2018 09:20:47 +0000
Subject: [PATCH] 10_MQTT2_DEVICE.pm: Dix delete WARNINGs for missing CID
 (Forum #93151)

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

diff --git a/fhem/FHEM/10_MQTT2_DEVICE.pm b/fhem/FHEM/10_MQTT2_DEVICE.pm
index 7fdcb1637..3f901dee3 100644
--- a/fhem/FHEM/10_MQTT2_DEVICE.pm
+++ b/fhem/FHEM/10_MQTT2_DEVICE.pm
@@ -395,9 +395,11 @@ MQTT2_DEVICE_Undef($$)
 {
   my ($hash, $arg) = @_;
   MQTT2_DEVICE_delReading($arg);
-  my $dpc = $modules{MQTT2_DEVICE}{defptr}{cid}{$hash->{CID}};
-  my @nh = grep { $_->{NAME} != $hash->{NAME} } @{$dpc};
-  $modules{MQTT2_DEVICE}{defptr}{cid}{$hash->{CID}} = \@nh;
+  if($hash->{CID}) {
+    my $dpc = $modules{MQTT2_DEVICE}{defptr}{cid}{$hash->{CID}};
+    my @nh = grep { $_->{NAME} ne $hash->{NAME} } @{$dpc};
+    $modules{MQTT2_DEVICE}{defptr}{cid}{$hash->{CID}} = \@nh;
+  }
   return undef;
 }