From 91ef0f822640db25e218bba8c01929378bf1bc30 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Mon, 4 Jan 2021 12:53:53 -0800 Subject: [PATCH] removed unused code --- lib/Perl/Tidy/VerticalAligner.pm | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/lib/Perl/Tidy/VerticalAligner.pm b/lib/Perl/Tidy/VerticalAligner.pm index 773c45fc..b5e42041 100644 --- a/lib/Perl/Tidy/VerticalAligner.pm +++ b/lib/Perl/Tidy/VerticalAligner.pm @@ -1279,24 +1279,6 @@ sub check_match { goto NO_MATCH; } - # FOR TESTING ONLY: if we do not mix lines with and without side comments - # in the top-down sweep, then lines without side comments cannot influence - # side comment locations. The results of this test are interesting but not - # always better. But it could be that some combination of the two - # possibilities can give better overall results, so this test patch is - # temporarily retained for further experimentation. - if (0) { #<<< - my $sc_len_base = $base_line->get_rfield_lengths()->[$maximum_field_index]; - my $sc_len = $new_line->get_rfield_lengths()->[$jmax]; - if ( $sc_len == 0 && $sc_len_base > 0 || $sc_len > 0 && $sc_len_base == 0 ) - { - EXPLAIN_CHECK_MATCH - && print - "match but sc mismatch, imax_align=$imax_align, jmax=$jmax\n"; - return ( 1, $jlimit ); - } - } - # The tokens match. Now See if there is space for this line in the # current group. if ( $self->check_fit( $new_line, $base_line ) && !TEST_SWEEP_ONLY ) { -- 2.39.5