dpkg-scansources: Use a foreach loop instead of a void map

Fixes BuiltinFunctions::ProhibitVoidMap.

scripts/dpkg-scansources.pl

@@ -338,12 +338,10 @@ sub main {
     close $find_fh or error(close_msg, 'find');
 
     if (@out) {
-        map {
-            $_->output(\*STDOUT);
+        foreach my $dsc (sort { $a->{Package} cmp $b->{Package} } @out) {
+            $dsc->output(\*STDOUT);
             print "\n";
-        } sort {
-            $a->{Package} cmp $b->{Package}
-        } @out;
+        }
     }
 
     return 0;

test/100_critic.t

@@ -41,6 +41,7 @@ my @policies = qw(
     BuiltinFunctions::ProhibitUniversalCan
     BuiltinFunctions::ProhibitUniversalIsa
     BuiltinFunctions::ProhibitVoidGrep
+    BuiltinFunctions::ProhibitVoidMap
     BuiltinFunctions::RequireGlobFunction
     BuiltinFunctions::RequireSimpleSortBlock
     ClassHierarchies::ProhibitAutoloading