regcomp.c: Add #undef

[perl5.git] / pp.c

diff --git a/pp.c b/pp.c
index 33943e4..4a55e02 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -3757,7 +3757,7 @@ PP(pp_uc)
            STRLEN u;
            STRLEN ulen;
            UV uv;
-           if (in_iota_subscript && ! is_utf8_mark(s)) {
+           if (in_iota_subscript && ! _is_utf8_mark(s)) {
 
                /* A non-mark.  Time to output the iota subscript */
 #define GREEK_CAPITAL_LETTER_IOTA 0x0399