This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
70e4a83
)
Add clarifying comment to toke.c
author
Karl Williamson
<khw@khw-desktop.(none)>
Tue, 22 Jun 2010 15:01:38 +0000
(09:01 -0600)
committer
Jesse Vincent
<jesse@bestpractical.com>
Tue, 29 Jun 2010 02:30:04 +0000
(22:30 -0400)
toke.c
patch
|
blob
|
blame
|
history
diff --git
a/toke.c
b/toke.c
index
d7d5d4d
..
8cbe28a
100644
(file)
--- 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]))
{