This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In S_scan_heredoc(), the explicit test for '\n' duplicates the strNE().
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index 66a197f..e6e59a3 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -9960,7 +9960,7 @@ S_scan_heredoc(pTHX_ char *s)
        bufend = SvEND(linestr);
        d = s;
        while (s < bufend &&
-         (*s != '\n' || memNE(s,PL_tokenbuf,len)) ) {
+          memNE(s,PL_tokenbuf,len) ) {
            if (*s++ == '\n')
                ++shared->herelines;
        }