From b6dd9a2d729a11f5b228a94f67ec3070023e77bf Mon Sep 17 00:00:00 2001
From: markusbloch <markusbloch@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 11 Jan 2016 23:05:37 +0000
Subject: [PATCH] version: skip file read if $Id$ found, close file after
 reading

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@10470 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_version.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/98_version.pm b/fhem/FHEM/98_version.pm
index 41daca25d..167b9b993 100755
--- a/fhem/FHEM/98_version.pm
+++ b/fhem/FHEM/98_version.pm
@@ -41,9 +41,14 @@ CommandVersion($$)
         $line = cfgDB_Fileversion($fn,$line);
       }
     } else {
-      ($line) = grep(/#.*\$Id\:[^\$\n\r].+\$/, <FH>);
+      while(<FH>) {
+         if(/#.*\$Id\:[^\$\n\r].+\$/) {
+           $line = $_;
+           last;
+         }
+      }
+      close(FH);
     }
-
     $line = "No Id found for $mod_name" unless($line);
     push @ret, $line;
   }