From 570468c8ee57b5875e5506eb659a1997ecfb6496 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 2 Aug 2020 11:36:59 +0000
Subject: [PATCH] 91_sequence.pm: fix notifyRegxp patch (Forum #113273)

git-svn-id: https://svn.fhem.de/fhem/trunk@22519 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/91_sequence.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/91_sequence.pm b/fhem/FHEM/91_sequence.pm
index a13767b5c..4f3a8e688 100644
--- a/fhem/FHEM/91_sequence.pm
+++ b/fhem/FHEM/91_sequence.pm
@@ -44,6 +44,7 @@ sequence_Define($$)
     if(int(@def) % 2 == 0 || int(@def) < 3);
 
   # "Syntax" checking
+  my @reList;
   for(my $i = 0; $i < int(@def); $i += 2) {
     my $re = $def[$i];
     my $to = $def[$i+1];
@@ -51,6 +52,7 @@ sequence_Define($$)
     return "Bad regexp 1: $@" if($@);
     return "Bad timeout spec $to"       # timeout or delay:timeout
       if (defined($to) && $to !~ m/^(\d+(\.\d+)?:)?\d+(\.\d+)?$/);
+    push @reList,$re;
   }
 
   $hash->{RE} = $def[0];
@@ -58,7 +60,7 @@ sequence_Define($$)
   $hash->{MAX} = int(@def);
   $hash->{STATE} = "active";
   $hash->{TS} = 0;
-  notifyRegexpChanged($hash, $hash->{RE});
+  notifyRegexpChanged($hash, join("|",@reList));
   return undef;
 }