mirror of
https://gitlab.com/libvirt/libvirt.git
synced 2024-12-22 17:34:18 +03:00
90b17aef1a
This is particularly useful on operating systems that don't ship Perl as part of the base system (eg. FreeBSD) while still working just as well as it did before on Linux. In one case (src/rpc/genprotocol.pl) the interpreter path was missing altogether. Signed-off-by: Andrea Bolognani <abologna@redhat.com>
27 lines
513 B
Perl
27 lines
513 B
Perl
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
|
|
my $file = " ";
|
|
my $ret = 0;
|
|
my %includes = ( );
|
|
my $lineno = 0;
|
|
|
|
while (<>) {
|
|
if (not $file eq $ARGV) {
|
|
%includes = ( );
|
|
$file = $ARGV;
|
|
$lineno = 0;
|
|
}
|
|
$lineno++;
|
|
if (/^# *include *[<"]([^>"]*\.h)[">]/) {
|
|
$includes{$1}++;
|
|
if ($includes{$1} == 2) {
|
|
$ret = 1;
|
|
print STDERR "$ARGV:$lineno: $_";
|
|
print STDERR "Do not include a header more than once per file\n";
|
|
}
|
|
}
|
|
}
|
|
exit $ret;
|