diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-01-23 18:29:20 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-01-23 18:45:59 +0000 |
commit | c24c946d24c97d98baecdbf2c37823b55add8bcb (patch) | |
tree | 14eaac76ebfac2a2d7dcbae2d4309ca0f0deb7e8 /regen_perly.pl | |
parent | e8fb9efbf973fedc74b46a30a67b602d07f033e9 (diff) | |
download | perl-c24c946d24c97d98baecdbf2c37823b55add8bcb.tar.gz |
Store the SHA-256 of the source in files generated by regen_perly.pl
bison isn't available everywhere, so we can't simply re-run regen_perly.pl to
verify that perly.{act,h,tab} are up to date. So instead store the SHA-256 of
the input files, and extend t/porting/regen.t to check that the input files
haven't been changed subsequently.
Diffstat (limited to 'regen_perly.pl')
-rw-r--r-- | regen_perly.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/regen_perly.pl b/regen_perly.pl index 00d2a59a18..ec591c5b42 100644 --- a/regen_perly.pl +++ b/regen_perly.pl @@ -101,11 +101,9 @@ my $read_only = read_only_top(lang => 'C', by => $0, from => $y_file); my $act_fh = safer_open("$act_file-new", $act_file); print $act_fh $read_only, $actlines; -read_only_bottom_close_and_rename($act_fh); my $tab_fh = safer_open("$tab_file-new", $tab_file); print $tab_fh $read_only, $tablines; -read_only_bottom_close_and_rename($tab_fh); unlink $tmpc_file; @@ -147,7 +145,9 @@ while (<$tmph_fh>) { close $tmph_fh; unlink $tmph_file; -read_only_bottom_close_and_rename($h_fh); +foreach ($act_fh, $tab_fh, $h_fh) { + read_only_bottom_close_and_rename($_, ['regen_perly.pl', $y_file]); +} exit 0; |