From: Joachim Breitner <nomeata@debian.org>
Date: Mon, 27 Jul 2009 23:34:54 +0000 (+0200)
Subject: Store reason for BD-Uninstallable in $pkg->{'Reason'}
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=cdd31293b9e882a78e5ab00a6d62494dba51ac46;p=wannabuild.git

Store reason for BD-Uninstallable in $pkg->{'Reason'}
---

diff --git a/bin/wanna-build b/bin/wanna-build
index 1b9ef3c..ff523e7 100755
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -2583,9 +2583,11 @@ sub call_edos_depcheck {
 	if ($change) {
 	    if (defined $interesting_packages{$key}) {
 		    $pkg->{'State'} = 'BD-Uninstallable';
+		    $pkg->{'Reason'} = $interesting_packages{$key};
 		    change_state( \$pkg, 'BD-Uninstallable' );
 	    } else {
 		    $pkg->{'State'} = 'Needs-Build';
+		    delete $pkg->{'Reason'};
 		    change_state( \$pkg, 'Needs-Build' );
 	    }
 	    log_ta( $pkg, "--merge-all" );