This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Use mnemonic
[perl5.git] / locale.c
index 5bc5fc5..bc507d9 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -2963,7 +2963,7 @@ Perl__is_cur_LC_category_utf8(pTHX_ int category)
 
 
             if (   len != STRLENs(REPLACEMENT_CHARACTER_UTF8)
-                || wc != (wchar_t) 0xFFFD)
+                || wc != (wchar_t) UNICODE_REPLACEMENT)
             {
                 is_utf8 = FALSE;
                 DEBUG_L(PerlIO_printf(Perl_debug_log, "\replacement=U+%x\n",