bump Module::Build in Maintainers.pl
[perl.git] / Porting / checkARGS_ASSERT.pl
1 #!/usr/bin/perl -w
2 use strict;
3
4 # Print out any PERL_ARGS_ASSERT* macro that was declared but not used.
5
6 my %declared;
7 my %used;
8
9 open my $fh, '<', 'proto.h' or die "Can't open proto.h: $!";
10 while (<$fh>) {
11     $declared{$1}++ if /^#define\s+(PERL_ARGS_ASSERT[A-Za-z_]+)\s+/;
12 }
13
14 if (!@ARGV) {
15     open my $fh, '<', 'MANIFEST' or die "Can't open MANIFEST: $!";
16     while (<$fh>) {
17         # *.c or */*.c
18         push @ARGV, $1 if m!^((?:[^/]+/)?[^/]+\.c)\t!;
19     }
20 }
21
22 while (<>) {
23     $used{$1}++ if /^\s+(PERL_ARGS_ASSERT_[A-Za-z_]+);$/;
24 }
25
26 my %unused;
27
28 foreach (keys %declared) {
29     $unused{$_}++ unless $used{$_};
30 }
31
32 print $_, "\n" foreach sort keys %unused;