From 19a9a428492b26483e30350437d1e5d0e84008de Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Tue, 10 Nov 2020 18:44:23 -0800
Subject: [PATCH] eliminate a regex for speedup

---
 lib/Perl/Tidy/Tokenizer.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 4f38ae56..5004571b 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -982,8 +982,11 @@ sub get_line {
         return $line_of_tokens;
     }
 
-    # update indentation levels for log messages
-    if ( $input_line !~ /^\s*$/ ) {
+    # Update indentation levels for log messages.
+    # Skip blank lines and block comments. Note that _line_of_text_ is the
+    # input line but trimmed from left to right.
+    my $lot = $tokenizer_self->[_line_of_text_];
+    if ( $lot && substr( $lot, 0, 1 ) ne '#' ) {
         my $rlevels = $line_of_tokens->{_rlevels};
         $line_of_tokens->{_guessed_indentation_level} =
           guess_old_indentation_level($input_line);
-- 
2.39.5