[otrs-cvs] module-tools FileListCheck.pl,1.5,1.6

Comments:
Update of /home/cvs/module-tools
In directory lancelot:/tmp/cvs-serv9083

Modified Files:
	FileListCheck.pl 
Log Message:
There is no 'head' on windows. Skip Eclipse project files.

Author: mb

Index: FileListCheck.pl
===================================================================
RCS file: /home/cvs/module-tools/FileListCheck.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -2 -u -d -r1.5 -r1.6
--- FileListCheck.pl	20 Nov 2012 19:16:58 -0000	1.5
+++ FileListCheck.pl	30 Jan 2013 13:49:54 -0000	1.6
@@ -3,5 +3,5 @@
 # module-tools/FileListCheck.pl
 #   - script for checking the file list in the .sopm file
-# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
+# Copyright (C) 2001-2013 OTRS AG, http://otrs.org/
 # --
 # $Id$
@@ -73,6 +73,11 @@
 
 # get encoding of XML file
-my $XMLHeadLine = `head -n1 $SOPMFilePath`;
-my ($SOPMEncoding) = $XMLHeadLine =~ m{ encoding="( (?: iso | utf ) - .* )" }xms;
+my $SOPMEncoding;
+open my $EncFH, '<', $SOPMFilePath;
+LINE:
+while ( my $Line = <$EncFH> ) {
+    ($SOPMEncoding) = $Line =~ m{ encoding="( (?: iso | utf ) - .* )" }xms;
+    last LINE;
+}
 
 # set default encoding to UTF8
@@ -107,4 +112,6 @@
     return if !-f $FileName;
     return if $FileName =~ m{\.project}xms;
+    return if $FileName =~ m{\.includepath}xms;
+    return if $FileName =~ m{\.settings}xms;
     return if $FileName =~ m{SVN}xms;
     return if $FileName =~ m{\.svn}xms;
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log