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

diff --git a/tools/check-includes.pl b/tools/check-includes.pl
index d93b5668a9c780baee20fb90b950aec3683346f3..079708397a8c90cba99faf1a074c7fad3b93f803 100755 (executable)
--- 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