From a0ee73acc3567040771f19ce28bb883f9c9bb964 Mon Sep 17 00:00:00 2001
From: markusbloch <>
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: https://svn.fhem.de/fhem/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;
   }