From fc91e8a6ddc253f9b9090aed9b4b286a2b30fc14 Mon Sep 17 00:00:00 2001
From: Joachim Breitner <nomeata@debian.org>
Date: Wed, 29 Jul 2009 18:54:38 +0200
Subject: [PATCH] Perl operator precedence mistake

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

diff --git a/bin/wanna-build b/bin/wanna-build
index 82fb929..4b497de 100755
--- a/bin/wanna-build
+++ b/bin/wanna-build
@@ -2608,8 +2608,8 @@ sub call_edos_depcheck {
     for my $key (keys %interesting_packages) {
 	my $pkg = $db{$key};
 	my $change = 
-	    (defined $interesting_packages{$key} && $pkg->{'State'} eq 'Needs-Build') ||
-	    (not defined $interesting_packages{$key} && $pkg->{'State'} eq 'BD-Uninstallable');
+	    (defined $interesting_packages{$key} and $pkg->{'State'} eq 'Needs-Build') ||
+	    (not defined $interesting_packages{$key} and $pkg->{'State'} eq 'BD-Uninstallable');
 	if ($change) {
 	    if (defined $interesting_packages{$key}) {
 		    change_state( \$pkg, 'BD-Uninstallable' );
-- 
2.39.5