From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 1 Nov 2001 14:27:51 +0000 (+0000)
Subject: Comment tweaks.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b239daa517b7055c05115178e7b786d4d4679731;p=p5sagit%2Fp5-mst-13.2.git

Comment tweaks.

p4raw-id: //depot/perl@12801
---

diff --git a/toke.c b/toke.c
index 9ff0aa8..46f87dd 100644
--- a/toke.c
+++ b/toke.c
@@ -1537,7 +1537,7 @@ S_scan_const(pTHX_ char *start)
 		}
 		continue;
 
- 	    /* \N{latin small letter a} is a named character */
+ 	    /* \N{LATIN SMALL LETTER A} is a named character */
  	    case 'N':
  		++s;
  		if (*s == '{') {
@@ -1568,7 +1568,7 @@ S_scan_const(pTHX_ char *start)
 			d = SvPVX(sv) + SvCUR(sv);
 			has_utf8 = TRUE;
 		    }
-		    if (len > e - s + 4) {
+		    if (len > e - s + 4) { /* I _guess_ 4 is \N{} --jhi */
 			char *odest = SvPVX(sv);
 
 			SvGROW(sv, (SvLEN(sv) + len - (e - s + 4)));