From e4aef69d84ea44d3b426d5540d47349eb6583d4b Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 25 Dec 2022 08:46:54 -0800 Subject: [PATCH] delete unused code --- lib/Perl/Tidy/Formatter.pm | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index 529e4801..4e6c43b6 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -12968,33 +12968,6 @@ sub is_fragile_block_type { } } - #-------------------------------------------------- - # This block is deactivated to fix b1441. It is not - # needed now because the comma length is added later, - # and including it twice can cause instability. - # This block can eventually be removed. - #-------------------------------------------------- - # Include length to a comma ending this line - # note: any side comments are handled at loop end (b1332) - if ( 0 - && $interrupted_list_rule - && $rLL->[$K_terminal]->[_TYPE_] eq ',' ) - { - my $Kend = $K_terminal; - - # Measure from the next blank if any (fixes b1301) - my $Kbeg = $KK; - if ( $rLL->[ $Kbeg + 1 ]->[_TYPE_] eq 'b' - && $Kbeg < $Kend ) - { - $Kbeg++; - } - - my $leng = $rLL->[$Kend]->[_CUMULATIVE_LENGTH_] - - $rLL->[$Kbeg]->[_CUMULATIVE_LENGTH_]; - if ( $leng > $max_prong_len ) { $max_prong_len = $leng } - } - my $K_c = $K_closing_container->{$seqno}; push @stack, [ -- 2.39.5