Mercurial > repo
view perl-5.22.2/cpan/Devel-PPPort/apicheck_c.PL @ 8045:a16537d2fe07
<xfix> tar xf perl-5.22.2.tar.gz # Ah, whatever, I\'m doing it anyway
author | HackBot |
---|---|
date | Sat, 14 May 2016 14:54:38 +0000 |
parents | |
children |
line wrap: on
line source
################################################################################ # # apicheck_c.PL -- generate apicheck.c # ################################################################################ # # Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz. # Version 2.x, Copyright (C) 2001, Paul Marquess. # Version 1.x, Copyright (C) 1999, Kenneth Albanowski. # # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. # ################################################################################ use strict; my $out = 'apicheck.c'; my @api = map { /^--api=(\w+)$/ ? ($1) : () } @ARGV; print "creating $out", (@api ? " (@api)" : ''), "\n"; system $^X, 'parts/apicheck.pl', @api, $out and die "couldn't create $out\n";