Fix the NAME in two old perlXYZdelta.pod files

[p5sagit/p5-mst-13.2.git] / embed.h

diff --git a/embed.h b/embed.h
index afbf1da..4858c56 100644 (file)
--- a/embed.h
+++ b/embed.h
@@ -394,6 +394,7 @@
 #define is_utf8_punct          Perl_is_utf8_punct
 #define is_utf8_xdigit         Perl_is_utf8_xdigit
 #define is_utf8_mark           Perl_is_utf8_mark
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define is_utf8_X_begin                Perl_is_utf8_X_begin
 #define is_utf8_X_extend       Perl_is_utf8_X_extend
 #define is_utf8_X_prepend      Perl_is_utf8_X_prepend
@@ -404,6 +405,7 @@
 #define is_utf8_X_LV_LVT_V     Perl_is_utf8_X_LV_LVT_V
 #define is_utf8_X_T            Perl_is_utf8_X_T
 #define is_utf8_X_V            Perl_is_utf8_X_V
+#endif
 #ifdef PERL_CORE
 #define jmaybe                 Perl_jmaybe
 #define keyword                        Perl_keyword
@@ -2802,6 +2804,7 @@
 #define is_utf8_punct(a)       Perl_is_utf8_punct(aTHX_ a)
 #define is_utf8_xdigit(a)      Perl_is_utf8_xdigit(aTHX_ a)
 #define is_utf8_mark(a)                Perl_is_utf8_mark(aTHX_ a)
+#if defined(PERL_CORE) || defined(PERL_EXT)
 #define is_utf8_X_begin(a)     Perl_is_utf8_X_begin(aTHX_ a)
 #define is_utf8_X_extend(a)    Perl_is_utf8_X_extend(aTHX_ a)
 #define is_utf8_X_prepend(a)   Perl_is_utf8_X_prepend(aTHX_ a)
@@ -2812,6 +2815,7 @@
 #define is_utf8_X_LV_LVT_V(a)  Perl_is_utf8_X_LV_LVT_V(aTHX_ a)
 #define is_utf8_X_T(a)         Perl_is_utf8_X_T(aTHX_ a)
 #define is_utf8_X_V(a)         Perl_is_utf8_X_V(aTHX_ a)
+#endif
 #ifdef PERL_CORE
 #define jmaybe(a)              Perl_jmaybe(aTHX_ a)
 #define keyword(a,b,c)         Perl_keyword(aTHX_ a,b,c)