simplify

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 54bf80d0e12f3dc03cdd5af963b323e327569f11..d4569f852947d3bf14f1a654c60f830b9bb6502c 100644 (file)
--- 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;