From 73fd30b94f68f15fea07677e32eeb77357e61de0 Mon Sep 17 00:00:00 2001 From: Joachim Breitner Date: Thu, 30 Jul 2009 00:49:50 +0200 Subject: [PATCH] Update BD-Problem even when the state does not change --- bin/wanna-build | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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; + } } } -- 2.39.5