Dpkg::Version: Use the block form for the map function

Fixes BuiltinFunctions::RequireBlockMap.

scripts/Dpkg/Version.pm

@@ -326,8 +326,8 @@ sub _version_order {
 }
 
 sub version_compare_string($$) {
-    my @a = map(_version_order($_), split(//, shift));
-    my @b = map(_version_order($_), split(//, shift));
+    my @a = map { _version_order($_) } split(//, shift);
+    my @b = map { _version_order($_) } split(//, shift);
     while (1) {
         my ($a, $b) = (shift @a, shift @b);
         return 0 if not defined($a) and not defined($b);

test/100_critic.t

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