This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Typo in comment
authorKarl Williamson <khw@cpan.org>
Sat, 22 Nov 2014 16:47:02 +0000 (09:47 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 24 Nov 2014 17:50:26 +0000 (10:50 -0700)
toke.c

diff --git a/toke.c b/toke.c
index e20c93f..cb14570 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -3475,7 +3475,7 @@ S_scan_const(pTHX_ char *start)
                            const STRLEN off = d - SvPVX_const(sv);
                            d = off + SvGROW(sv, off + len + (STRLEN)(send - s) + 1);
                        }
-                        if (! SvUTF8(res)) {    /* Make sure is \N{} return is UTF-8 */
+                        if (! SvUTF8(res)) {    /* Make sure \N{} return is UTF-8 */
                             sv_utf8_upgrade(res);
                             str = SvPV_const(res, len);
                         }