mark containers with here-docs as broken

diff --git a/lib/Perl/Tidy/Formatter.pm b/lib/Perl/Tidy/Formatter.pm
index aa4e2c1a4ef99253622d8efb9532d80116e7e74b..e8c27d3fdb9b727a80c26f5f30ea1b7a0c158c39 100644 (file)
--- a/lib/Perl/Tidy/Formatter.pm
+++ b/lib/Perl/Tidy/Formatter.pm
@@ -13987,6 +13987,13 @@ sub store_token {
                 if ( $type eq 'h' && !$K_first_here_doc_by_seqno{$seqno} ) {
                     my $KK_new = @{$rLL_new};
                     $K_first_here_doc_by_seqno{$seqno} = $KK_new;
+
+                    # the here doc which follows makes the container broken
+                    if ( !$ris_permanently_broken->{$seqno} ) {
+                        $ris_permanently_broken->{$seqno} = 1;
+                        $self->mark_parent_containers( $seqno,
+                            $ris_permanently_broken );
+                    }
                 }
             }
         }