From 94bad86e14eafa439b8689745f295d9cf349a2ba Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 20 Jan 2022 16:06:47 +0000
Subject: [PATCH] fhem.pl: compile regexp in computeClientArray by Sidey (Forum
 #125292)

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

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 69ad36a8e..7ab850d5f 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -5174,10 +5174,11 @@ computeClientArray($$)
     @a = grep { $modules{$_} && $modules{$_}{Match} } @mRe;
 
   } else {
+    my @cmRe = map { qr/^$_$/ } @mRe;  # 125292, precompile, speedup 5x for CUL
     foreach my $m (sort { $modules{$a}{ORDER}.$a cmp $modules{$b}{ORDER}.$b }
                     grep { defined($modules{$_}{ORDER}) } keys %modules) {
-      foreach my $re (@mRe) {
-        if($m =~ m/^$re$/) {
+      foreach my $re (@cmRe) {
+        if($m =~ $re) {
           push @a, $m if($modules{$m}{Match});
           last;
         }