diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-12-05 13:10:13 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-12-07 18:52:42 -0800 |
| commit | 81c14aa2230ca380c2f424e69ac8f9dc0bb4ae23 (patch) | |
| tree | 1afbb97aaf38d7255dcdeafb7dfdea1e5b71bff9 | |
| parent | 7538f7248145d82e23e430518cf41f4da91e8fdd (diff) | |
| download | perl-81c14aa2230ca380c2f424e69ac8f9dc0bb4ae23.tar.gz | |
toke.c: Fix EBCDIC problem
Commit 356979f4a7d780fd67a92a9ca6c8659bd12e7168 failed to include two
instances in toke.c that needed the same treatment, i.e., converting
properly from I8 to native.
| -rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; } |