From 4f2791efedf450e7bc48ed937f7d5e608bfe4700 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 31 Dec 2016 07:44:34 +0000
Subject: [PATCH] HMInfo:correct template read for readonly files

git-svn-id: https://svn.fhem.de/fhem/trunk@12917 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_HMinfo.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index 04bf3db58..3fd69a595 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -921,17 +921,17 @@ sub HMinfo_listOfTempTemplates() { ############################################
   my $tDefault = $dir.$tFiles[0].":";
   my @tmpl;
   foreach my $fn (map{$dir.$_}@tFiles){
-    if (!(-r $fn)){
-      next;
-    }
+    next if (!(-r $fn));
+
     open(aSave, "$fn") || return("Can't open $fn: $!");
     while(<aSave>){
       chomp;
       my $line = $_;
       $line =~ s/\r//g;
       if($line =~ m/^entities:(.*)/){
-        $1 =~s/.*://;
-        push @tmpl,map{"$fn:$_"}split(",",$1);
+        my $l =$1;
+        $l =~s/.*://;
+        push @tmpl,map{"$fn:$_"}split(",",$l);
       }  
     }
     close (aSave);