minor formatting changes

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index b2a44f0d6ef68a7a588f48e94776bd2b9960d1e4..e21e21471531add982384590631148376f497aa0 100644 (file)
--- 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 6f2d774f2d57df623c9eb5ba6277a17027e456ce..930c5a0b07c757bdff041802b8b1a0740bdf5fdf 100644 (file)
--- 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 4910ddd1a6bbe437709ad3583748f9942bd51010..e6181528fa8e533c60f54126fe03c385eef61584 100644 (file)
--- 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