From: Karl Williamson <khw@khw-desktop.(none)>
Date: Tue, 22 Jun 2010 15:01:38 +0000 (-0600)
Subject: Add clarifying comment to toke.c
X-Git-Tag: accepted/trunk/20130322.191538~8662
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7d0fc23c8bfb8e3951adbf6632eb27486d3f66ca;p=platform%2Fupstream%2Fperl.git

Add clarifying comment to toke.c
---

diff --git a/toke.c b/toke.c
index d7d5d4d..8cbe28a 100644
--- a/toke.c
+++ b/toke.c
@@ -2811,7 +2811,8 @@ S_scan_const(pTHX_ char *start)
 
 	    s++;
 
-	    /* deprecate \1 in strings and substitution replacements */
+	    /* warn on \1 - \9 in substitution replacements, but note that \11
+	     * is an octal; and \19 is \1 followed by '9' */
 	    if (PL_lex_inwhat == OP_SUBST && !PL_lex_inpat &&
 		isDIGIT(*s) && *s != '0' && !isDIGIT(s[1]))
 	    {