From b8f1e5d9bb41080282d15706075b4ac7d65eece9 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 18 Oct 2022 17:26:24 -0700
Subject: [PATCH] minor formatting changes

---
 lib/Perl/Tidy.pm                 |  6 +++---
 lib/Perl/Tidy/Tokenizer.pm       |  4 ++--
 lib/Perl/Tidy/VerticalAligner.pm | 10 +++++-----
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index b2a44f0d..e21e2147 100644
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -1662,7 +1662,7 @@ EOM
         $is_encoded_data,
         $decoded_input_as,
         $encoding_log_message,
-        $length_function
+        $length_function,
 
     );
 } ## end sub get_decoded_string_buffer
@@ -4599,13 +4599,13 @@ sub Win_OS_Type {
         1 => {
             0  => "95",
             10 => "98",
-            90 => "Me"
+            90 => "Me",
         },
         2 => {
             0  => "2000",      # or NT 4, see below
             1  => "XP/.Net",
             2  => "Win2003",
-            51 => "NT3.51"
+            51 => "NT3.51",
         }
     }->{$id}->{$minor};
 
diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 6f2d774f..930c5a0b 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -3453,7 +3453,7 @@ EOM
                         rtokens         => $rtokens,
                         rtoken_map      => $rtoken_map,
                         id_scan_state   => $id_scan_state,
-                        max_token_index => $max_token_index
+                        max_token_index => $max_token_index,
                     }
                 );
 
@@ -7196,7 +7196,7 @@ sub scan_id_do {
                     rtokens         => $rtokens,
                     rtoken_map      => $rtoken_map,
                     id_scan_state   => $id_scan_state,
-                    max_token_index => $max_token_index
+                    max_token_index => $max_token_index,
                 }
             );
         }
diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm
index 4910ddd1..e6181528 100644
--- a/lib/Perl/Tidy/VerticalAligner.pm
+++ b/lib/Perl/Tidy/VerticalAligner.pm
@@ -4930,7 +4930,7 @@ sub get_output_line_number {
                 $cached_line_text,
                 $cached_line_leading_space_count,
                 $last_level_written,
-                $cached_line_Kend
+                $cached_line_Kend,
             );
         }
 
@@ -4985,7 +4985,7 @@ sub get_output_line_number {
                     $cached_line_text,
                     $cached_line_leading_space_count,
                     $last_level_written,
-                    $cached_line_Kend
+                    $cached_line_Kend,
                 );
             }
         }
@@ -5134,7 +5134,7 @@ sub get_output_line_number {
                     $cached_line_text,
                     $cached_line_leading_space_count,
                     $last_level_written,
-                    $cached_line_Kend
+                    $cached_line_Kend,
                 );
             }
         }
@@ -5299,7 +5299,7 @@ sub get_output_line_number {
                 $line,
                 $leading_space_count,
                 $level,
-                $Kend
+                $Kend,
             );
         }
         else {
@@ -5388,7 +5388,7 @@ sub get_output_line_number {
             $seqno_string,
             $last_nonblank_seqno_string,
 
-            @args_to_D
+            @args_to_D,
         ) = @_;
 
         # Dump any saved lines if we see a line with an unbalanced opening or
-- 
2.39.5