1#!/usr/bin/perl -w 2# 3# regen.pl - a wrapper that runs all *.pl scripts to autogenerate files 4 5require 5.004; # keep this compatible, an old perl is all we may have before 6 # we build the new one 7 8# The idea is to move the regen_headers target out of the Makefile so that 9# it is possible to rebuild the headers before the Makefile is available. 10# (and the Makefile is unavailable until after Configure is run, and we may 11# wish to make a clean source tree but with current headers without running 12# anything else. 13 14use strict; 15 16my $tap = $ARGV[0] && $ARGV[0] eq '--tap' ? '# ' : ''; 17foreach my $pl (map {chomp; "regen/$_"} <DATA>) { 18 my @command = ($^X, '-I.', $pl, @ARGV); 19 print "$tap@command\n"; 20 system @command 21 and die "@command failed: $?" 22} 23 24__END__ 25embed.pl 26feature.pl 27mg_vtable.pl 28miniperlmain.pl 29opcode.pl 30overload.pl 31reentr.pl 32regcomp.pl 33scope_types.pl 34tidy_embed.pl 35warnings.pl 36