This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: s/below/above/
authorFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 07:39:32 +0000 (00:39 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Mon, 5 Aug 2013 09:23:34 +0000 (02:23 -0700)
The condition this refers to was moved in commit 4efe39d21.

toke.c

diff --git a/toke.c b/toke.c
index 0de2d0c..911fb94 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -10046,7 +10046,7 @@ S_scan_heredoc(pTHX_ char *s)
            /* shared is only null if we have gone beyond the outermost
               lexing scope.  In a file, we will have broken out of the
               loop in the previous iteration.  In an eval, the string buf-
-              fer ends with "\n;", so the while condition below will have
+              fer ends with "\n;", so the while condition above will have
               evaluated to false.  So shared can never be null. */
            assert(shared);
            /* A LEXSHARED struct with a null ls_prev pointer is the outer-