tor/scripts/maint/check_config_macros.pl

21 lines
271 B
Perl
Raw Normal View History

#!/usr/bin/perl -w
use strict;
my @macros = ();
open(F, 'orconfig.h.in');
while(<F>) {
if (/^#undef +([A-Za-z0-9_]*)/) {
push @macros, $1;
}
}
close F;
for my $m (@macros) {
my $s = `git grep '$m' src`;
if ($s eq '') {
print "Unused: $m\n";
}
}