fix 'is_permanently_broken' at blank lines; improves -xlp

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index 4a3c86f6204e3953006aa1dec006279152bee64d..7a92d859f013375e4348c5af160fcf8c644c66d6 100644 (file)
--- 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;