From 38df174cc22f84da416220743e7c15b134a38bf2 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Tue, 13 Mar 2018 21:16:06 +0000
Subject: [PATCH] fhem.pl: fix event-min-interval issues caused by the last
 change (Forum #85406)

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

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 2f20042bc..2be9b9549 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -359,7 +359,7 @@ my %ra = (
   "event-on-update-reading"    => { s=>",", c=>".attreour" },
   "event-on-change-reading"    => { s=>",", c=>".attreocr",   r=>":.*" },
   "timestamp-on-change-reading"=> { s=>",", c=>".attrtocr" },
-  "event-min-interval"         => { s=>",", c=>".attrminint", r=>";.*" },
+  "event-min-interval"         => { s=>",", c=>".attrminint", r=>":.*" },
   "oldreadings"                => { s=>",", c=>".or" },
   "devStateIcon"               => { s=>" ", r=>":.*", p=>"^{.*}\$",
                                     pv=>{"%name"=>1, "%state"=>1, "%type"=>1} },
@@ -2816,6 +2816,7 @@ CommandAttr($$)
 
         my @a = split($ra{$attrName}{s}, $lval) ;
         for my $v (@a) {
+          my $v = $v; # resolve the reference to avoid changing @a itself
           $v =~ s/$ra{$attrName}{r}// if($ra{$attrName}{r});
           my $err ="Argument $v for attr $sdev $attrName is not a valid regexp";
           return "$err: use .* instead of *" if($v =~ /^\*/); # no err in eval!?