4 # Print out any PERL_ARGS_ASSERT* macro that was declared but not used.
9 open my $fh, '<', 'proto.h' or die "Can't open proto.h: $!";
11 $declared{$1}++ if /^#define\s+(PERL_ARGS_ASSERT[A-Za-z_]+)\s+/;
15 open my $fh, '<', 'MANIFEST' or die "Can't open MANIFEST: $!";
18 push @ARGV, $1 if m!^((?:[^/]+/)?[^/]+\.c)\t!;
23 $used{$1}++ if /^\s+(PERL_ARGS_ASSERT_[A-Za-z_]+);$/;
28 foreach (keys %declared) {
29 $unused{$_}++ unless $used{$_};
32 print $_, "\n" foreach sort keys %unused;