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__ 25mg_vtable.pl 26opcode.pl 27overload.pl 28reentr.pl 29regcomp.pl 30warnings.pl 31embed.pl 32feature.pl 33