Insure correct marking of a brace following a format stmt

This does not change formatting but insures that braces
are correctly marked. This fixes issue c202/t032.

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 2e91624d85d0e8c83d7bbaa94a1351d3637f1a2e..8f54001ed33da2e35dea338a17fd2470252cf767 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -1035,6 +1035,11 @@ sub get_line {
             if ( !$self->[_in_format_] ) {
                 $self->log_numbered_msg("Exiting format section\n");
                 $line_of_tokens->{_line_type} = 'FORMAT_END';
+
+                # Make the tokenizer mark an opening brace which follows
+                # as a code block. Fixes issue c202/t032.
+                $last_nonblank_token = ';';
+                $last_nonblank_type  = ';';
             }
         }
         else {