summaryrefslogtreecommitdiffstats
path: root/perl-install/verify_c
blob: 94fe0e17446eaa93825f2d8e9efb1ad7726b45f7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -n

/^#/ and next;
/\bc::(\w+)/ and push @c, [ $1, $ARGV, $. ] ;

eof && close ARGV;

END {
    $_ = join '', `cat c/stuff.xs.pm`; 
    foreach $c (@c) {
	/$c->[0]/ or $err = print "$c->[1]:$c->[2]: $c->[0] not in c.xs\n";
    }
    exit $err;
}