From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 19 Oct 2024 00:13:03 +0000 (-0700)
Subject: simplify
X-Git-Tag: 20240903.05~23
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f02bb7cced582a3eae47ea0e04a02c60e14299fa;p=perltidy.git

simplify
---

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;