mirror of
https://gitlab.com/libvirt/libvirt.git
synced 2024-10-03 04:45:46 +00:00
23 lines
399 B
Perl
23 lines
399 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
|
|
my $file = " ";
|
|
my $ret = 0;
|
|
my %includes = ( );
|
|
|
|
while (<>) {
|
|
if (not $file eq $ARGV) {
|
|
%includes = ( );
|
|
$file = $ARGV;
|
|
}
|
|
if (/^# *include *[<"]([^>"]*\.h)[">]/) {
|
|
$includes{$1}++;
|
|
if ($includes{$1} == 2) {
|
|
$ret = 1;
|
|
print STDERR "$1 included multiple times in $ARGV\n";
|
|
}
|
|
}
|
|
}
|
|
exit $ret;
|