From f02bb7cced582a3eae47ea0e04a02c60e14299fa Mon Sep 17 00:00:00 2001
From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Fri, 18 Oct 2024 17:13:03 -0700
Subject: [PATCH] simplify

---
 lib/Perl/Tidy/Tokenizer.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 54bf80d0..d4569f85 100644
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -7830,8 +7830,7 @@ sub guess_if_here_doc {
 
     while ( defined( $line = $self->peek_ahead( $k++ ) ) ) {
         chomp $line;
-
-        if ( $line =~ /^$next_token$/ ) {
+        if ( $line eq $next_token ) {
             $msg .= " -- found target $next_token ahead $k lines\n";
             $here_doc_expected = 1;    # got it
             last;
-- 
2.39.5