delete unused code
authorSteve Hancock <perltidy@users.sourceforge.net>
Sun, 25 Dec 2022 16:46:54 +0000 (08:46 -0800)
committerSteve Hancock <perltidy@users.sourceforge.net>
Sun, 25 Dec 2022 16:46:54 +0000 (08:46 -0800)
lib/Perl/Tidy/Formatter.pm

index 529e48013c52b08bab70f1349751dc84d1fac83a..4e6c43b6b654af5dd24c6af5c071e6b575ca6929 100644 (file)
@@ -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, [