X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/3879ea51d63e30f393172fcd711bc89f88997019..971c5244800c9017603979e4f5202b8e5e374b62:/regen.pl?ds=sidebyside diff --git a/regen.pl b/regen.pl index f103b0a..1f2a583 100644 --- a/regen.pl +++ b/regen.pl @@ -13,11 +13,10 @@ require 5.004; # keep this compatible, an old perl is all we may have before use strict; -# Which scripts to run. Note the ordering: embed.pl must run after -# opcode.pl, since it depends on pp.sym +# Which scripts to run. my @scripts = qw( -keywords.pl +mg_vtable.pl opcode.pl overload.pl reentr.pl @@ -27,7 +26,7 @@ embed.pl ); my $tap = $ARGV[0] && $ARGV[0] eq '--tap' ? '# ' : ''; -foreach my $pl (@scripts) { +foreach my $pl (map {"regen/$_"} @scripts) { my @command = ($^X, $pl, @ARGV); print "$tap@command\n"; system @command;