From faf889a044e7cb3898f3610f53323d9532b87f99 Mon Sep 17 00:00:00 2001 From: Damian <> Date: Mon, 10 Apr 2017 21:07:23 +0000 Subject: [PATCH] 98_DOIF.pm: fixed: reset $1,$2, ... vor reading output git-svn-id: https://svn.fhem.de/fhem/trunk@13965 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_DOIF.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/fhem/FHEM/98_DOIF.pm b/fhem/FHEM/98_DOIF.pm index 65b70bcf1..7e4b641f8 100644 --- a/fhem/FHEM/98_DOIF.pm +++ b/fhem/FHEM/98_DOIF.pm @@ -358,7 +358,6 @@ ReadingSecDoIf($$) sub ReadingValDoIf { - my ($hash,$name,$reading,$default,$regExp,$output)=@_; $default=AttrVal($hash->{NAME},'notexist','') if (!defined $default); @@ -369,7 +368,6 @@ ReadingValDoIf } else { $default=EvalValueDoIf($hash,"default",$default); } - my $r; my $element; return ($default) if (!defined $defs{$name}); @@ -377,6 +375,7 @@ ReadingValDoIf $r=$defs{$name}{READINGS}{$reading}{VAL}; $r="" if (!defined($r)); if ($regExp) { + "" =~ /()()()()()()()()()/; #reset $1, $2.... $element = ($r =~ /$regExp/) ? $1 : ""; if ($output) { $element= eval $output;