From c449a8204b38f501bbf7a46aa6506f6d398db789 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 13 Aug 2022 11:04:19 -0700
Subject: [PATCH] do not pad C-style 'for' terms

---
 lib/Perl/Tidy/Formatter.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index faa0b9af..f09171f6 100644
--- 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] }
-- 
2.39.5