From: Joachim Breitner <nomeata@debian.org>
Date: Wed, 29 Jul 2009 16:54:38 +0000 (+0200)
Subject: Perl operator precedence mistake
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=fc91e8a6ddc253f9b9090aed9b4b286a2b30fc14;p=wannabuild.git

Perl operator precedence mistake
---

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' );