This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Correct comment
authorFather Chrysostomos <sprout@cpan.org>
Thu, 8 Sep 2016 21:25:09 +0000 (14:25 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 10 Sep 2016 21:11:18 +0000 (14:11 -0700)
toke.c

diff --git a/toke.c b/toke.c
index c56b632..5fed84d 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -9812,7 +9812,8 @@ S_scan_heredoc(pTHX_ char *s)
 
 /* scan_inputsymbol
    takes: position of first '<' in input buffer
-   returns: position of first char following the last '>' in input buffer
+   returns: position of first char following the matching '>' in
+           input buffer
    side-effects: pl_yylval and lex_op are set.
 
    This code handles: