In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/8ecf5aeb0235fbd7428a9aa07025bd0631054e13?hp=df84fb9fdd69c2618eb0e445e6724c07d4947fa5>
- Log ----------------------------------------------------------------- commit 8ecf5aeb0235fbd7428a9aa07025bd0631054e13 Author: David Mitchell <[email protected]> Date: Mon Jun 5 12:32:12 2017 +0100 make porting/cmp_version.t clearer what happens Add some code comments, and include the version number its comparing against in the output. ----------------------------------------------------------------------- Summary of changes: Porting/cmpVERSION.pl | 6 ++++++ t/porting/cmp_version.t | 7 +++++++ 2 files changed, 13 insertions(+) diff --git a/Porting/cmpVERSION.pl b/Porting/cmpVERSION.pl index 01f77c8e82..67e9b395ca 100755 --- a/Porting/cmpVERSION.pl +++ b/Porting/cmpVERSION.pl @@ -169,6 +169,7 @@ unless (%module_diffs) { } printf "1..%d\n" => scalar keys %module_diffs if $tap; +print "#\n# Comparing against $tag_to_compare ....\n#\n" if $tap; my $count; my $diff_cmd = "git --no-pager diff $tag_to_compare "; @@ -194,9 +195,14 @@ foreach my $pm_file (sort keys %module_diffs) { print "ok $count - $pm_file\n" if $tap; } else { if ($tap) { + print "#\n# " . '-' x 75 . "\n" + . "# Version number ($pm_version) unchanged since" + . " $tag_to_compare, but contents have changed:\n#\n"; foreach (sort @{$module_diffs{$pm_file}}) { print "# $_" for `$diff_cmd $q$_$q`; } + print "# " . '-' x 75 . "\n"; + if (exists $skip_versions{$pm_file} and grep $pm_version eq $_, @{$skip_versions{$pm_file}}) { print "ok $count - SKIP $pm_file version $pm_version\n"; diff --git a/t/porting/cmp_version.t b/t/porting/cmp_version.t index bbbc852f92..18b3e57510 100644 --- a/t/porting/cmp_version.t +++ b/t/porting/cmp_version.t @@ -9,6 +9,13 @@ # AND you should probably also nudge the upstream maintainer for # example by filing a bug, with a patch attached and linking to # the core change. +# +# This test script works by finding the last non-RC tagged commit, +# which it assumes was the last release, then for each module: +# if it has changed since that commit, but its version number is still the +# same as that commit, report it. +# +# There's also a module exclusion list in Porting/cmpVERSION.pl. BEGIN { @INC = '..' if -f '../TestInit.pm'; -- Perl5 Master Repository
