From 61f83f2d9965ebbbf88fac4e44df9a520e5d18c1 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Wed, 26 Apr 2023 05:45:38 -0700 Subject: [PATCH] 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. --- lib/Perl/Tidy/Tokenizer.pm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm index 2e91624d..8f54001e 100644 --- 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 { -- 2.39.5