From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Wed, 11 Nov 2020 02:44:23 +0000 (-0800)
Subject: eliminate a regex for speedup
X-Git-Tag: 20201202~41
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=19a9a428492b26483e30350437d1e5d0e84008de;p=perltidy.git

eliminate a regex for speedup
---

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);