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:
7826b36
)
toke.c: Add comment
author
Karl Williamson
<public@khwilliamson.com>
Fri, 28 Jan 2011 05:13:33 +0000
(22:13 -0700)
committer
Karl Williamson
<public@khwilliamson.com>
Fri, 28 Jan 2011 06:14:51 +0000
(23:14 -0700)
toke.c
patch
|
blob
|
blame
|
history
diff --git
a/toke.c
b/toke.c
index
086da83
..
17152e5
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-3087,7
+3087,9
@@
S_scan_const(pTHX_ char *start)
* utf8 now, we save a whole pass in the regular expression
* compiler. Once that code is changed so Unicode
* semantics doesn't necessarily have to be in utf8, this
- * block should be removed */
+ * block should be removed. However, the code that parses
+ * the output of this would have to be changed to not
+ * necessarily expect utf8 */
if (!has_utf8) {
SvCUR_set(sv, d - SvPVX_const(sv));
SvPOK_on(sv);