[Reproducible-commits] [perl] 21/36: debian/t/control.t: prepare for unversioned Breaks entries

[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 9c2bd273140b3a09f891df4980b9cd46ab7c92d5
Author: Niko Tyni <ntyni at debian.org>
Date:   Tue Apr 21 22:01:40 2015 +0300

    debian/t/control.t: prepare for unversioned Breaks entries
    
    We'll probably need unversioned Breaks on libtest-tester-perl and
    libtest-use-ok-perl (recently merged into libtest-simple-perl)
    with Perl 5.22 packages, so handle them gracefully.
---
 debian/t/control.t | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/debian/t/control.t b/debian/t/control.t
index 38fee7a..5d9d78e 100755
--- a/debian/t/control.t
+++ b/debian/t/control.t
@@ -157,10 +157,14 @@ for my $perl_package_name (keys %deps_found) {
 		my $module = deb2cpan($broken);
 		my ($archive_epoch, $archive_digits) = get_archive_info($broken);
 
-		my $broken_version = $dep_found->{$breaksname}{$broken}{version};
-		$broken_version =~ s/-\d+$//; # remove the Debian revision
-
 		SKIP: {
+			my $broken_version = $dep_found->{$breaksname}{$broken}{version};
+
+			skip("$module Breaks entry is unversioned", 3)
+				if !defined $broken_version;
+
+			$broken_version =~ s/-\d+$//; # remove the Debian revision
+
 			skip("$module is unknown to Module::CoreList", 3)
 				if !exists $corelist->{$module};
 

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