From ba5806857803db23a0468a607978d66be8200c7f Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Mon, 22 Aug 2022 18:42:18 -0700 Subject: [PATCH] minor resturcture of sub set_comma_breakpoints_do --- lib/Perl/Tidy/Formatter.pm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) 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 { -- 2.39.5