This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
typo fixes for root level scripts
[perl5.git] / regen.pl
... / ...
CommitLineData
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
16# Which scripts to run.
17
18my @scripts = qw(
19mg_vtable.pl
20opcode.pl
21overload.pl
22reentr.pl
23regcomp.pl
24warnings.pl
25embed.pl
26feature.pl
27);
28
29my $tap = $ARGV[0] && $ARGV[0] eq '--tap' ? '# ' : '';
30foreach my $pl (map {"regen/$_"} @scripts) {
31 my @command = ($^X, $pl, @ARGV);
32 print "$tap@command\n";
33 system @command;
34}