[Reproducible-commits] [perl] 22/36: Add machinery to help updating Broken package versions

[Mattia Rizzolo]

This is an automated email from the git hooks/post-receive script.

mapreri-guest pushed a commit to branch pu/reproducible_builds
in repository perl.

commit d4107db82ccbb5d1084e7728ed950a72759705a1
Author: Niko Tyni <ntyni at debian.org>
Date:   Tue Apr 21 20:59:41 2015 +0300

    Add machinery to help updating Broken package versions
    
    Make the maintainer test for debian/control output sed commands
    that can be used to automatically fix the control file.
    
    This is particularly helpful for major Perl upgrades, where
    there are dozens of updated dual life modules.
    
    Usage example:
      prove -v debian/t/control.t 2>&1 | sed -n 's,# s/,s/, p' | sed -f - -i debian/control
---
 debian/t/control.t | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/debian/t/control.t b/debian/t/control.t
index 5d9d78e..3987428 100755
--- a/debian/t/control.t
+++ b/debian/t/control.t
@@ -175,6 +175,12 @@ for my $perl_package_name (keys %deps_found) {
 
 			is($broken_version, $corelist_version,
 				"Breaks for $broken in $perl_package_name matches Module::CoreList for $module");
+			# help automating fixes for major version upgrades
+			# usage example:
+			#  prove -v debian/t/control.t 2>&1 | sed -n 's,# s/,s/, p' | sed -f - -i debian/control
+			if ($broken_version ne $corelist_version) {
+				diag("s/$broken (<< $broken_version)/$broken (<< $corelist_version)/");
+			}
 
 			skip("not checking Replaces and Provides for $broken in $perl_package_name", 2)
 				if $triplet_check_skip{$perl_package_name} &&

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/perl.git