diff options
author | Chmouel Boudjnah <chmouel@mandriva.org> | 1999-07-01 12:29:54 +0000 |
---|---|---|
committer | Chmouel Boudjnah <chmouel@mandriva.org> | 1999-07-01 12:29:54 +0000 |
commit | e1729dfdb9c341fe0b9fed7d7b0a80691a547d82 (patch) | |
tree | b72fd8f59af166fe944ebcf114d648ed5644f752 /perl-install/verify_c | |
parent | b50e655e352e2524fb3fb84b2bb4bc96e6a04cf0 (diff) | |
download | drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.tar drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.tar.gz drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.tar.bz2 drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.tar.xz drakx-e1729dfdb9c341fe0b9fed7d7b0a80691a547d82.zip |
"See_The_Changelog"
Diffstat (limited to 'perl-install/verify_c')
-rwxr-xr-x | perl-install/verify_c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/verify_c b/perl-install/verify_c new file mode 100755 index 000000000..a306348dd --- /dev/null +++ b/perl-install/verify_c @@ -0,0 +1,14 @@ +#!/usr/bin/perl -n + +/^#/ and next; +/c::(\w+)/ and push @c, [ $1, $ARGV, $. ] ; + +eof && close ARGV; + +END { + $_ = join '', `cat c/c.xs.pm`; + foreach $c (@c) { + /$c->[0]/ or $err = print "$c->[1]:$c->[2]: $c->[0] not in c.xs\n"; + } + exit $err; +} |