This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Use more clearly named macro
authorKarl Williamson <public@khwilliamson.com>
Tue, 26 Feb 2013 20:45:19 +0000 (13:45 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 29 Aug 2013 15:55:59 +0000 (09:55 -0600)
In the case of invariants these two macros should do the same thing,
but it seems to me that the latter name more clearly indicates what is
going on.

utf8.c

diff --git a/utf8.c b/utf8.c
index cc64ee6..2a23995 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -179,7 +179,7 @@ Perl_uvoffuni_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
        }
     }
     if (UNI_IS_INVARIANT(uv)) {
-       *d++ = (U8) I8_TO_NATIVE_UTF8(uv);
+       *d++ = (U8) LATIN1_TO_NATIVE(uv);
        return d;
     }
 #if defined(EBCDIC)