From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 23 Aug 2022 01:42:18 +0000 (-0700)
Subject: minor resturcture of sub set_comma_breakpoints_do
X-Git-Tag: 20220613.05~35
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ba5806857803db23a0468a607978d66be8200c7f;p=perltidy.git

minor resturcture of sub set_comma_breakpoints_do
---

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 5f60f748..0af6ea94 100644
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -21068,6 +21068,18 @@ EOM
         #---------------------------------------------------------------
         # go ahead and format as a table
         #---------------------------------------------------------------
+        $self->write_formatted_table( $number_of_fields, $comma_count,
+            $rcomma_index, $use_separate_first_term );
+        return;
+    } ## end sub set_comma_breakpoints_do
+
+    sub write_formatted_table {
+
+        # Write a table of comma separated items with fixed number of fields
+        my ( $self, $number_of_fields, $comma_count, $rcomma_index,
+            $use_separate_first_term )
+          = @_;
+
         write_logfile_entry(
             "List: auto formatting with $number_of_fields fields/row\n");
 
@@ -21081,7 +21093,7 @@ EOM
             $j += $number_of_fields;
         }
         return;
-    } ## end sub set_comma_breakpoints_do
+    }
 } ## end closure set_comma_breakpoints_do
 
 sub study_list_complexity {