From 9ce419e16d38aced8b92cc93d519243dcdf28e79 Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 27 Jan 2024 18:03:40 -0800
Subject: [PATCH] unify code skipping and format skipping logic in tokenizer

---
 lib/Perl/Tidy/Tokenizer.pm | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index a00355d0..6ee5bcad 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -333,7 +333,7 @@ EOM
     return;
 } ## end sub Fault
 
-sub make_code_skipping_pattern {
+sub make_skipping_pattern {
     my ( $rOpts, $opt_name, $default ) = @_;
     my $param = $rOpts->{$opt_name};
     if ( !$param ) { $param = $default }
@@ -341,14 +341,16 @@ sub make_code_skipping_pattern {
     if ( $param !~ /^#/ ) {
         Die("ERROR: the $opt_name parameter '$param' must begin with '#'\n");
     }
-    my $pattern = '^\s*' . $param . '\b';
+
+    # Note that the ending \s will match a newline
+    my $pattern = '^\s*' . $param . '\s';
     if ( Perl::Tidy::Formatter::bad_pattern($pattern) ) {
         Die(
 "ERROR: the $opt_name parameter '$param' causes the invalid regex '$pattern'\n"
         );
     }
     return $pattern;
-} ## end sub make_code_skipping_pattern
+} ## end sub make_skipping_pattern
 
 sub check_options {
 
@@ -485,9 +487,9 @@ sub check_options {
     if ( !$tabsize ) { $tabsize = TAB_SIZE_DEFAULT }
 
     $code_skipping_pattern_begin =
-      make_code_skipping_pattern( $rOpts, 'code-skipping-begin', '#<<V' );
+      make_skipping_pattern( $rOpts, 'code-skipping-begin', '#<<V' );
     $code_skipping_pattern_end =
-      make_code_skipping_pattern( $rOpts, 'code-skipping-end', '#>>V' );
+      make_skipping_pattern( $rOpts, 'code-skipping-end', '#>>V' );
 
     return;
 } ## end sub check_options
@@ -5326,7 +5328,9 @@ EOM
                     || $rOpts_code_skipping_begin
                 )
                 && $rOpts_code_skipping
-                && $input_line =~ /$code_skipping_pattern_begin/
+
+                # note that the code_skipping_patterns require a newline
+                && $input_line . "\n" =~ /$code_skipping_pattern_begin/
               )
             {
                 $self->[_in_skipped_] = $self->[_last_line_number_];
-- 
2.39.5