From cdd31293b9e882a78e5ab00a6d62494dba51ac46 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <nomeata@debian.org>
Date: Tue, 28 Jul 2009 01:34:54 +0200
Subject: [PATCH] Store reason for BD-Uninstallable in $pkg->{'Reason'}

---
 bin/wanna-build | 2 ++
 1 file changed, 2 insertions(+)

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" );
-- 
2.39.5