[libconfig-model-dpkg-perl] 03/04: Warn when no useful info is found in madison

[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 0b6fb6e331bde0912db946970a50d1f3d6c3e413
Author: Dominique Dumont <dod at debian.org>
Date:   Mon Oct 16 13:07:57 2017 +0200

    Warn when no useful info is found in madison
---
 lib/Config/Model/Dpkg/Dependency.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/Config/Model/Dpkg/Dependency.pm b/lib/Config/Model/Dpkg/Dependency.pm
index 49ddfcb..c36dbf4 100644
--- a/lib/Config/Model/Dpkg/Dependency.pm
+++ b/lib/Config/Model/Dpkg/Dependency.pm
@@ -991,6 +991,12 @@ sub extract_madison_info ($json) {
         # @res contains something like 'oldstable 5.10.1-17 stable 5.14.2-21 testing 5.18.1-3 unstable 5.18.1-4'
         my @res = map { $avail{$_}->@* ; } sort { $vs->compare($a,$b) } keys %avail ;
 
+        if (not @res) {
+            warn "ERROR: Could not extract useful info from madison for package $name. ",
+                "Please report this issue using 'reportbug libconfig-model-dpkg-perl'\n";
+            next;
+        }
+
         $ref{$name} = \@res ;
         $cache{$name} = join(' ',time, @res) ;
 	}

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