In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/542a754528b7b23df13117bb0f791aeafa63c8f7?hp=d02d132368fb58f9c154375aed1d828614f7e42f>
- Log ----------------------------------------------------------------- commit 542a754528b7b23df13117bb0f791aeafa63c8f7 Author: Father Chrysostomos <[email protected]> Date: Wed Dec 3 22:41:45 2014 -0800 Add checksum to regcharclass.h and check that checksum in t/porting/regen.t. This makes the tests run faster. M regcharclass.h M regen/regcharclass.pl M t/porting/regen.t commit 713f4b7fac26b1203e2dda8a1ef97a01a8242897 Author: Father Chrysostomos <[email protected]> Date: Wed Dec 3 22:37:22 2014 -0800 Add checksum to charclass_invlists.h and check that checksum in t/porting/regen.t. This makes the tests run faster. M charclass_invlists.h M regen/mk_invlists.pl M t/porting/regen.t ----------------------------------------------------------------------- Summary of changes: charclass_invlists.h | 4 +++- regcharclass.h | 4 +++- regen/mk_invlists.pl | 2 +- regen/regcharclass.pl | 2 +- t/porting/regen.t | 2 ++ 5 files changed, 10 insertions(+), 4 deletions(-) diff --git a/charclass_invlists.h b/charclass_invlists.h index 67df832..0907f12 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -50100,4 +50100,6 @@ static const UV _Perl_IDCont_invlist[] = { /* for EBCDIC POSIX-BC */ #endif /* EBCDIC POSIX-BC */ -/* ex: set ro: */ +/* Generated from: + * d8772d2511bca9f2072104eb35b5a3943111af908dfe772214d64baf0fef3cbd regen/mk_invlists.pl + * ex: set ro: */ diff --git a/regcharclass.h b/regcharclass.h index ef834cb..923be81 100644 --- a/regcharclass.h +++ b/regcharclass.h @@ -2907,4 +2907,6 @@ #endif /* H_REGCHARCLASS */ -/* ex: set ro: */ +/* Generated from: + * d3ce45436d251560bef015ee209e8a0661a0e564216585e9e84f25ec8ac715ae regen/regcharclass.pl + * ex: set ro: */ diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 2a10e1b..e0a5024 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -297,4 +297,4 @@ for my $charset (get_supported_code_pages()) { print $out_fh "\n" . get_conditional_compile_line_end(); } -read_only_bottom_close_and_rename($out_fh) +read_only_bottom_close_and_rename($out_fh, [$0]) diff --git a/regen/regcharclass.pl b/regen/regcharclass.pl index 0114816..cd19563 100755 --- a/regen/regcharclass.pl +++ b/regen/regcharclass.pl @@ -1456,7 +1456,7 @@ EOF if($path eq '-') { print $out_fh "/* ex: set ro: */\n"; } else { - read_only_bottom_close_and_rename($out_fh) + read_only_bottom_close_and_rename($out_fh, [$0]) } } diff --git a/t/porting/regen.t b/t/porting/regen.t index 1676c21..27e4abe 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -28,6 +28,8 @@ my $tests = 26; # I can't see a clean way to calculate this automatically. my %skip = ("regen_perly.pl" => [qw(perly.act perly.h perly.tab)], "regen/keywords.pl" => [qw(keywords.c keywords.h)], "regen/uconfig_h.h" => [qw(uconfig.h)], + "regen/mk_invlists.pl" => [qw(charclass_invlists.h)], + "regen/regcharclass.pl" => [qw(regcharclass.h)], ); my @files = map {@$_} sort values %skip; -- Perl5 Master Repository
