Perl operator precedence mistake

diff --git a/bin/wanna-build b/bin/wanna-build
index 82fb92985f3c292b8c38e24f25bacd0623418c38..4b497de8061536f3c648b40448b33cc8cdd2413e 100755 (executable)
--- 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' );