Fix tidyall tests.

See: https://metacpan.org/release/Code-TidyAll .
shlomif · Jul 10, 2023 · 90f70ff · 90f70ff
1 parent 00af700
commit 90f70ff
Show file tree

Hide file tree

Showing 9 changed files with 19 additions and 19 deletions.
diff --git a/cpan/Games-Solitaire-Verify/Games-Solitaire-Verify/lib/Games/Solitaire/Verify/State.pm b/cpan/Games-Solitaire-Verify/Games-Solitaire-Verify/lib/Games/Solitaire/Verify/State.pm
@@ -523,7 +523,7 @@ sub _calc_freecell_max_seq_move
     my $to_empty = ( defined( $args->{to_empty} ) ? $args->{to_empty} : 0 );
 
     return ( ( $self->num_empty_freecells() + 1 )
-        << ( $self->num_empty_columns() - $to_empty ) );
+            << ( $self->num_empty_columns() - $to_empty ) );
 }
 
 sub _calc_empty_stacks_filled_by_any_card_max_seq_move

diff --git a/fc-solve/presets/soft-threads/meta-moves/auto-gen/with-sp-run-to-founds/process-wallclock.pl b/fc-solve/presets/soft-threads/meta-moves/auto-gen/with-sp-run-to-founds/process-wallclock.pl
@@ -104,13 +104,13 @@
 
     my $recs        = $max_scan->{r};
     my $iters_count = max(
-        map      { $_->[$ITERS_IDX] }
-            grep { $_->[$STATUS_IDX] && ( $_->[$TIME_DELTA_IDX] < $quota ) }
+        map  { $_->[$ITERS_IDX] }
+        grep { $_->[$STATUS_IDX] && ( $_->[$TIME_DELTA_IDX] < $quota ) }
             @{$recs}
     );
     my $time_delta = max(
-        map      { $_->[$TIME_DELTA_IDX] }
-            grep { $_->[$STATUS_IDX] && ( $_->[$TIME_DELTA_IDX] < $quota ) }
+        map  { $_->[$TIME_DELTA_IDX] }
+        grep { $_->[$STATUS_IDX] && ( $_->[$TIME_DELTA_IDX] < $quota ) }
             @{$recs}
     );
 

diff --git a/fc-solve/scripts/FindSeed.pm b/fc-solve/scripts/FindSeed.pm
@@ -89,7 +89,7 @@ sub from_lines
             %$args,
             results => [
                 sort { $a->iters <=> $b->iters }
-                    map {
+                map {
                     my $s = $_;
                     $s =~ s#\A([0-9]+) = ##;
                     my $deal = $1;
@@ -100,7 +100,7 @@ sub from_lines
                             seed   => $seed,
                         }
                     );
-                    } @{ $args->{lines} },
+                } @{ $args->{lines} },
             ],
         }
     );

diff --git a/fc-solve/scripts/extract-states-as-lines.pl b/fc-solve/scripts/extract-states-as-lines.pl
@@ -37,7 +37,7 @@
         print "]"
             . (
             join "",
-            map      { "$_\\n" }
+            map { "$_\\n" }
                 sort { $a cmp $b } ( @cols, $normalized_fc_l, $founds_l )
             ) . "\n";
     }

diff --git a/fc-solve/scripts/process-and-sort-make-output.pl b/fc-solve/scripts/process-and-sort-make-output.pl
@@ -11,7 +11,7 @@ sub foo
     return (
         ( $s =~ /\s-c\s+(\S*?\.c)\s*\n?\z/ )
         ? do
-        {
+            {
             my $ret = $1;
 
             # print "Ret=$ret \n";
@@ -22,7 +22,7 @@ sub foo
 }
 
 print map { s/[ \t]+/ /gr }
-    sort  { ( foo($a) cmp foo($b) ) or ( $a cmp $b ) }
+    sort { ( foo($a) cmp foo($b) ) or ( $a cmp $b ) }
     grep {
     not /-Dfreecell_solver_EXPOR/
         || /-Dfcs_gen_ms_freecell_boards_EXPORTS/

diff --git a/fc-solve/site/wml/lib/FreecellSolver/GenDealsCharts1.pm b/fc-solve/site/wml/lib/FreecellSolver/GenDealsCharts1.pm
@@ -20,9 +20,9 @@ sub format_num
 sub _calc_deal_nums
 {
     return [
-        sort     { $a <=> $b }
-            grep { /\A[0-9]+\z/ }
-            map  { s#.*/##mrs =~ s#\.dump\.txt\z##mrs } glob(
+        sort { $a <=> $b }
+        grep { /\A[0-9]+\z/ }
+        map  { s#.*/##mrs =~ s#\.dump\.txt\z##mrs } glob(
             "src/charts/fc-pro--4fc-intractable-deals--report/data/*.dump.txt")
     ];
 }

diff --git a/fc-solve/source/scripts/gen-cmd-line-radix-tree.pl b/fc-solve/source/scripts/gen-cmd-line-radix-tree.pl
@@ -26,7 +26,7 @@ sub gen_radix_tree
   };
 %%
 EOF
-        map      { "$_, $strings_to_opts_map{$_}\n" }
+        map { "$_, $strings_to_opts_map{$_}\n" }
             sort { $a cmp $b } keys %strings_to_opts_map,
     );
     return;

diff --git a/fc-solve/source/t/lib/FC_Solve/InlineWrap.pm b/fc-solve/source/t/lib/FC_Solve/InlineWrap.pm
@@ -33,7 +33,7 @@ sub import
         NAME => $pkg,
         INC  => join(
             " ",
-            map     { "-I$_" }
+            map { "-I$_" }
                 map { bin_file($_), src_file($_) } (
                 ["include"],           ["rinutils/rinutils/include"],
                 ["patsolve/patsolve"], ["patsolve/patsolve/include"],

diff --git a/fc-solve/source/t/t/fc-solve-output-Test-Trap.t b/fc-solve/source/t/t/fc-solve-output-Test-Trap.t
@@ -100,8 +100,8 @@ qq#Unknown option "-invalidopt". Type "$FC_SOLVE__RAW --help" for usage informat
                 /\A\[\[Num FCS Moves\]\]=([0-9]+)\r?\z/
                     ? ( not( $1 > 0 ) )
                     : 1;
-                }
-                grep { /\A\[\[Num FCS Moves\]\]/ } @lines
+            }
+            grep { /\A\[\[Num FCS Moves\]\]/ } @lines
         ],
         [],
         "All FCS Move counts are valid",
@@ -114,8 +114,8 @@ qq#Unknown option "-invalidopt". Type "$FC_SOLVE__RAW --help" for usage informat
                 /\A\[\[Num FCPro Moves\]\]=([0-9]+)\r?\z/
                     ? ( not( $1 > 0 ) )
                     : 1;
-                }
-                grep { /\A\[\[Num FCPro Moves\]\]/ } @lines
+            }
+            grep { /\A\[\[Num FCPro Moves\]\]/ } @lines
         ],
         [],
         "All FCPro Move counts are valid.",