diff options
Diffstat (limited to 'regen.pl')
-rw-r--r-- | regen.pl | 18 |
1 files changed, 5 insertions, 13 deletions
@@ -15,6 +15,9 @@ my $perl = $^X; # changes. Um, what ? # safer_unlink ("warnings.h", "lib/warnings.pm"); +# We no longer need the values on this mapping, as the "changed" message is +# now generated by regen_lib.pl, so should we just drop them? + my %gen = ( 'autodoc.pl' => [qw[pod/perlapi.pod pod/perlintern.pod]], 'embed.pl' => [qw[proto.h embed.h embedvar.h global.sym @@ -43,20 +46,9 @@ sub do_cksum { return %cksum; } -foreach my $pl (keys %gen) { +# this puts autodoc.pl last, which can be useful as it reads reentr.c +foreach my $pl (reverse sort keys %gen) { my @command = ($^X, $pl, @ARGV); print "@command\n"; - my %cksum0; - %cksum0 = do_cksum($pl) unless $pl eq 'warnings.pl'; # the files were removed system @command; - next if $pl eq 'warnings.pl'; # the files were removed - my %cksum1 = do_cksum($pl); - my @chg; - for my $f (@{ $gen{$pl} }) { - push(@chg, $f) - if !defined($cksum0{$f}) || - !defined($cksum1{$f}) || - $cksum0{$f} ne $cksum1{$f}; - } - print "Changed: @chg\n" if @chg; } |