diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-03-25 13:09:09 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-09-10 21:02:58 -0600 |
| commit | 6f2d5cbcfe6275cad930b63e81bfd159b3964944 (patch) | |
| tree | e0394a94a69d8e3922dffab69c5ea80399aef261 /dist/IO/IO.xs | |
| parent | c11b1469027c6226458c10ea61522ddcdbee226c (diff) | |
| download | perl-6f2d5cbcfe6275cad930b63e81bfd159b3964944.tar.gz | |
Use separate macros for byte vs uv Unicode
This removes a macro not yet even in a development release, and splits
its calls into two classes: those where the input is a byte; and those
where it can be any unsigned integer. The byte implementation avoids a
function call on EBCDIC platforms.
Diffstat (limited to 'dist/IO/IO.xs')
| -rw-r--r-- | dist/IO/IO.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs index c603456c30..5ae41aed2d 100644 --- a/dist/IO/IO.xs +++ b/dist/IO/IO.xs @@ -337,7 +337,7 @@ ungetc(handle, c) croak("Negative character number in ungetc()"); v = SvUV(c); - if (NATIVE_IS_INVARIANT(v) || (v <= 0xFF && !PerlIO_isutf8(handle))) + if (UVCHR_IS_INVARIANT(v) || (v <= 0xFF && !PerlIO_isutf8(handle))) RETVAL = PerlIO_ungetc(handle, (int)v); else { U8 buf[UTF8_MAXBYTES + 1], *end; |