do not pad C-style 'for' terms

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index faa0b9af8873562ab7fdecfaab7b27f7093ad73d..f09171f6733c30db87c1000dad1b13ea34d9ceb4 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -23990,6 +23990,9 @@ sub get_seqno {
                         $ok_comma = $tok_next_next eq $tok_next;
                     }
 
+                    # no padding of C-style 'for' terms ('f' is ';' c154)
+                    next if ( $types_to_go[$iendm] eq 'f' );
+
                     next
                       unless (
                            $is_assignment{ $types_to_go[$iendm] }