From 9f9258945e1c2906d3e5ca3e3dcd9a5a44bb74e7 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 6 Mar 2019 17:09:02 +0000
Subject: [PATCH] 10_MQTT2_DEVICE.pm: add some bridgeRegexp debugging (Forum
 #98206)

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

diff --git a/fhem/FHEM/10_MQTT2_DEVICE.pm b/fhem/FHEM/10_MQTT2_DEVICE.pm
index 7e0cd61d7..0be434652 100644
--- a/fhem/FHEM/10_MQTT2_DEVICE.pm
+++ b/fhem/FHEM/10_MQTT2_DEVICE.pm
@@ -158,6 +158,7 @@ MQTT2_DEVICE_Parse($$)
     my $newCid = $cid;
     my $bp = $modules{MQTT2_DEVICE}{defptr}{bridge};
     my $parentBridge;
+    my %matching; # For debugging
     foreach my $re (keys %{$bp}) {
       next if(!("$topic:$value" =~ m/^$re$/s ||
                 "$cid:$topic:$value" =~ m/^$re$/s));
@@ -168,9 +169,13 @@ MQTT2_DEVICE_Parse($$)
         return "";
       }
       $parentBridge = $bp->{$re}{parent};
-      last;
+      $matching{$re} = 1;
     }
     return if(!$newCid);
+    if(int(keys %matching) > 1) {
+      Log 1, "MULTIPLE MATCH in bridgeRegexp for $cid:$topic:$value: ".
+                join(",",keys %matching);
+    }
 
     PrioQueue_add(sub{
       my $cidArr = $modules{MQTT2_DEVICE}{defptr}{cid}{$newCid};