From: Sven Eden <yamakuzure@gmx.net>
Date: Tue, 6 Mar 2018 07:34:00 +0000 (+0100)
Subject: tools/check-includes.pl : Prepared for check-tree.pl handling.
X-Git-Tag: v235.3~9
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=c477f8d4b5a31f89ee5bbd75218a24f276c33175;p=elogind.git

tools/check-includes.pl : Prepared for check-tree.pl handling.
---

diff --git a/tools/check-includes.pl b/tools/check-includes.pl
index d93b5668a..079708397 100755
--- a/tools/check-includes.pl
+++ b/tools/check-includes.pl
@@ -3,6 +3,26 @@
 # checkincludes: Find files included more than once in (other) files.
 # Copyright abandoned, 2000, Niels Kristian Bech Jensen <nkbj@image.dk>.
 
+#if 0 // 5 errors and 2 warnings are inaccaptable for elogind - See PerlCritic.
+# foreach $file (@ARGV) {
+# 	open(FILE, $file) or die "Cannot open $file: $!.\n";
+# 
+# 	my %includedfiles = ();
+# 
+# 	while (<FILE>) {
+# 		if (m/^\s*#\s*include\s*[<"](\S*)[>"]/o) {
+# 			++$includedfiles{$1};
+# 		}
+# 	}
+# 	foreach $filename (keys %includedfiles) {
+# 		if ($includedfiles{$filename} > 1) {
+# 			print "$file: $filename is included more than once.\n";
+# 		}
+# 	}
+# 
+# 	close(FILE);
+# }
+#else
 use strict;
 use warnings;
 
@@ -23,3 +43,4 @@ foreach my $file (@ARGV) {
 		}
 	}
 }
+#endif // 0