From: Joachim Breitner <nomeata@debian.org>
Date: Wed, 29 Jul 2009 22:49:50 +0000 (+0200)
Subject: Update BD-Problem even when the state does not change
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=73fd30b94f68f15fea07677e32eeb77357e61de0;p=wannabuild.git

Update BD-Problem even when the state does not change
---

diff --git a/bin/wanna-build b/bin/wanna-build
index 22af9fe..669a93e 100755
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -2643,6 +2643,7 @@ sub call_edos_depcheck {
 	my $change = 
 	    (defined $interesting_packages{$key} and $pkg->{'State'} eq 'Needs-Build') ||
 	    (not defined $interesting_packages{$key} and $pkg->{'State'} eq 'BD-Uninstallable');
+	my $problemchange = $interesting_packages{$key} ne $pkg->{'BD-Problem'};
 	if ($change) {
 	    if (defined $interesting_packages{$key}) {
 		    change_state( \$pkg, 'BD-Uninstallable' );
@@ -2650,10 +2651,19 @@ sub call_edos_depcheck {
 	    } else {
 		    change_state( \$pkg, 'Needs-Build' );
 	    }
+	}
+	if ($problemchange) {
+	    if (defined $interesting_packages{$key}) {
+		    $pkg->{'BD-Problem'} = $interesting_packages{$key};
+	    }	
+	}
+	if ($change) {
 	    log_ta( $pkg, "--merge-all" );
-	    $db{$key} = $pkg;
 	    print "edos-builddebchange changed state of ${key}_$pkg->{'Version'} to $pkg->{'State'}\n" if $verbose;
 	}
+	if ($change || $problemchange) {
+	    $db{$key} = $pkg;
+	}
     }
 }