diff options
Diffstat (limited to 'tools/check-includes.pl')
-rwxr-xr-x | tools/check-includes.pl | 21 |
1 files changed, 21 insertions, 0 deletions
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 |