dpkg-source: Use two eq operators instead of a grep

This avoids using grep on scalar context.

Fixes BuiltinFunctions::ProhibitBooleanGrep.

scripts/dpkg-source.pl

@@ -286,7 +286,7 @@ if ($options{opmode} =~ /^(-b|--print-format|--(before|after)-build|--commit)$/)
                         error(_g('architecture %s only allowed on its ' .
                                  "own (list for package %s is `%s')"),
                               $a, $p, $a)
-                            if grep($a eq $_, 'any', 'all');
+                            if $a eq 'any' or $a eq 'all';
                         push(@sourcearch, $a) unless $archadded{$a}++;
                     }
                 }

test/100_critic.t

@@ -34,6 +34,7 @@ if (not eval { require Perl::Critic::Utils }) {
 }
 
 my @policies = qw(
+    BuiltinFunctions::ProhibitBooleanGrep
     BuiltinFunctions::ProhibitLvalueSubstr
     BuiltinFunctions::ProhibitReverseSortBlock
     BuiltinFunctions::ProhibitSleepViaSelect