projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7538f72
)
toke.c: Fix EBCDIC problem
author
Karl Williamson
<public@khwilliamson.com>
Sun, 5 Dec 2010 20:10:13 +0000
(13:10 -0700)
committer
Father Chrysostomos
<sprout@cpan.org>
Wed, 8 Dec 2010 02:52:42 +0000
(18:52 -0800)
Commit
356979f4a7d780fd67a92a9ca6c8659bd12e7168
failed to include two
instances in toke.c that needed the same treatment, i.e., converting
properly from I8 to native.
toke.c
patch
|
blob
|
history
diff --git
a/toke.c
b/toke.c
index
641757d
..
12359e0
100644
(file)
--- a/
toke.c
+++ b/
toke.c
@@
-3298,7
+3298,7
@@
S_scan_const(pTHX_ char *start)
if (UTF8_IS_INVARIANT(*i)) {
if (! isALPHAU(*i)) problematic = TRUE;
} else if (UTF8_IS_DOWNGRADEABLE_START(*i)) {
- if (! isALPHAU(UNI_TO_NATIVE(
UTF8_ACCUMULATE
(*i,
+ if (! isALPHAU(UNI_TO_NATIVE(
TWO_BYTE_UTF8_TO_UNI
(*i,
*(i+1)))))
{
problematic = TRUE;
@@
-3314,7
+3314,7
@@
S_scan_const(pTHX_ char *start)
continue;
} else if (isCHARNAME_CONT(
UNI_TO_NATIVE(
-
UTF8_ACCUMULATE
(*i, *(i+1)))))
+
TWO_BYTE_UTF8_TO_UNI
(*i, *(i+1)))))
{
continue;
}