From fc82cc053e509136142e827385f9f2a70679794a Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sun, 18 Sep 2022 06:48:22 -0700 Subject: [PATCH] fix 'is_permanently_broken' at blank lines; improves -xlp --- lib/Perl/Tidy/Formatter.pm | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm index 4a3c86f6..7a92d859 100644 --- a/lib/Perl/Tidy/Formatter.pm +++ b/lib/Perl/Tidy/Formatter.pm @@ -6391,6 +6391,17 @@ sub respace_tokens { next unless ( $line_type eq 'CODE' ); my $last_CODE_type = $CODE_type; $CODE_type = $line_of_tokens->{_code_type}; + + if ( $CODE_type eq 'BL' ) { + my $seqno = $seqno_stack{ $depth_next - 1 }; + if ( defined($seqno) + && !$ris_permanently_broken->{$seqno} + && $rOpts_maximum_consecutive_blank_lines ) + { + $self->set_permanently_broken($seqno); + } + } + my $rK_range = $line_of_tokens->{_rK_range}; my ( $Kfirst, $Klast ) = @{$rK_range}; next unless defined($Kfirst); @@ -6481,16 +6492,6 @@ sub respace_tokens { } } - if ( $CODE_type eq 'BL' ) { - my $seqno = $seqno_stack{ $depth_next - 1 }; - if ( defined($seqno) - && !$ris_permanently_broken->{$seqno} - && $rOpts_maximum_consecutive_blank_lines ) - { - $self->set_permanently_broken($seqno); - } - } - # Copy tokens unchanged foreach my $KK ( $Kfirst .. $Klast ) { $Ktoken_vars = $KK; -- 2.39.5