FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

fhem.pl: compile regexp in computeClientArray by Sidey (Forum #125292)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25517 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2022-01-20 16:06:47 +00:00
parent 454fe2d41f
commit 94bad86e14
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/fhem.pl
View File

@ -5174,10 +5174,11 @@ computeClientArray($$)
@a = grep { $modules{$_} && $modules{$_}{Match} } @mRe; @a = grep { $modules{$_} && $modules{$_}{Match} } @mRe;
} else { } 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 } foreach my $m (sort { $modules{$a}{ORDER}.$a cmp $modules{$b}{ORDER}.$b }
grep { defined($modules{$_}{ORDER}) } keys %modules) { grep { defined($modules{$_}{ORDER}) } keys %modules) {
foreach my $re (@mRe) { foreach my $re (@cmRe) {
if($m =~ m/^$re$/) { if($m =~ $re) {
push @a, $m if($modules{$m}{Match}); push @a, $m if($modules{$m}{Match});
last; last;
} }