[libconfig-model-dpkg-perl] 02/13: Dependency: die if something went wrong while finding the ideal dependency

[dod at debian.org]

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

dod pushed a commit to branch master
in repository libconfig-model-dpkg-perl.

commit 48d2772738082269a93ce855c91fa4d9169987eb
Author: Dominique Dumont <dod at debian.org>
Date:   Wed May 20 13:32:12 2015 +0200

    Dependency: die if something went wrong while finding the ideal dependency
---
 lib/Config/Model/Dpkg/Dependency.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib/Config/Model/Dpkg/Dependency.pm b/lib/Config/Model/Dpkg/Dependency.pm
index 567cae5..7ed2295 100644
--- a/lib/Config/Model/Dpkg/Dependency.pm
+++ b/lib/Config/Model/Dpkg/Dependency.pm
@@ -555,8 +555,12 @@ sub check_perl_lib_dep {
         = $removed || $deprecated  ? ( \@ideal_lib_dep )
         : $has_older_perl_in_sid ? ( \@ideal_perl_dep, \@ideal_lib_dep )
         :                          ( \@ideal_lib_dep, \@ideal_perl_dep ) ;
+
 	my $ideal_dep = $self->struct_to_dep( @ordered_ideal_dep );
 
+    die "Internal error: undefined ideal dep. Please report bug with the dependencies that triggered the bug"
+        unless defined $ideal_dep;
+
 	if ( $actual_dep ne $ideal_dep ) {
 		if ($apply_fix) {
 			@$input = @ordered_ideal_dep ; # notify_change called in check_value

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libconfig-model-dpkg-perl.git