pp_leavewrite wasn't warning for unopened handles unless 'closed' was enabled.
[perl.git] / regen.pl
1 #!/usr/bin/perl -w
2 #
3 # regen.pl - a wrapper that runs all *.pl scripts to to autogenerate files
4
5 require 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
14 use strict;
15
16 # Which scripts to run. Note the ordering: embed.pl must run after
17 # opcode.pl, since it depends on pp.sym
18
19 my @scripts = qw(
20 keywords.pl
21 opcode.pl
22 overload.pl
23 reentr.pl
24 regcomp.pl
25 warnings.pl
26 embed.pl
27 );
28
29 my $tap = $ARGV[0] && $ARGV[0] eq '--tap' ? '# ' : '';
30 foreach my $pl (map {"regen/$_"} @scripts) {
31   my @command =  ($^X, $pl, @ARGV);
32   print "$tap@command\n";
33   system @command;
34 }