#define to_uni_title_lc Perl_to_uni_title_lc
#define to_uni_lower_lc Perl_to_uni_lower_lc
#define is_uni_alnum Perl_is_uni_alnum
-#define is_uni_alnumc Perl_is_uni_alnumc
#define is_uni_idfirst Perl_is_uni_idfirst
#define is_uni_alpha Perl_is_uni_alpha
#define is_uni_ascii Perl_is_uni_ascii
#define to_uni_lower Perl_to_uni_lower
#define to_uni_fold Perl_to_uni_fold
#define is_uni_alnum_lc Perl_is_uni_alnum_lc
-#define is_uni_alnumc_lc Perl_is_uni_alnumc_lc
#define is_uni_idfirst_lc Perl_is_uni_idfirst_lc
#define is_uni_alpha_lc Perl_is_uni_alpha_lc
#define is_uni_ascii_lc Perl_is_uni_ascii_lc
#define is_utf8_string Perl_is_utf8_string
#define is_utf8_string_loclen Perl_is_utf8_string_loclen
#define is_utf8_alnum Perl_is_utf8_alnum
-#define is_utf8_alnumc Perl_is_utf8_alnumc
#define is_utf8_idfirst Perl_is_utf8_idfirst
#define is_utf8_idcont Perl_is_utf8_idcont
#define is_utf8_alpha Perl_is_utf8_alpha
#define xmldump_packsubs Perl_xmldump_packsubs
#define xmldump_packsubs_perl Perl_xmldump_packsubs_perl
#define xmldump_sub Perl_xmldump_sub
-#endif
-#ifdef PERL_CORE
+#define xmldump_sub_perl Perl_xmldump_sub_perl
#define xmldump_form Perl_xmldump_form
#define xmldump_eval Perl_xmldump_eval
#define sv_catxmlsv Perl_sv_catxmlsv
#define to_uni_title_lc(a) Perl_to_uni_title_lc(aTHX_ a)
#define to_uni_lower_lc(a) Perl_to_uni_lower_lc(aTHX_ a)
#define is_uni_alnum(a) Perl_is_uni_alnum(aTHX_ a)
-#define is_uni_alnumc(a) Perl_is_uni_alnumc(aTHX_ a)
#define is_uni_idfirst(a) Perl_is_uni_idfirst(aTHX_ a)
#define is_uni_alpha(a) Perl_is_uni_alpha(aTHX_ a)
#define is_uni_ascii(a) Perl_is_uni_ascii(aTHX_ a)
#define to_uni_lower(a,b,c) Perl_to_uni_lower(aTHX_ a,b,c)
#define to_uni_fold(a,b,c) Perl_to_uni_fold(aTHX_ a,b,c)
#define is_uni_alnum_lc(a) Perl_is_uni_alnum_lc(aTHX_ a)
-#define is_uni_alnumc_lc(a) Perl_is_uni_alnumc_lc(aTHX_ a)
#define is_uni_idfirst_lc(a) Perl_is_uni_idfirst_lc(aTHX_ a)
#define is_uni_alpha_lc(a) Perl_is_uni_alpha_lc(aTHX_ a)
#define is_uni_ascii_lc(a) Perl_is_uni_ascii_lc(aTHX_ a)
#define is_utf8_string Perl_is_utf8_string
#define is_utf8_string_loclen Perl_is_utf8_string_loclen
#define is_utf8_alnum(a) Perl_is_utf8_alnum(aTHX_ a)
-#define is_utf8_alnumc(a) Perl_is_utf8_alnumc(aTHX_ a)
#define is_utf8_idfirst(a) Perl_is_utf8_idfirst(aTHX_ a)
#define is_utf8_idcont(a) Perl_is_utf8_idcont(aTHX_ a)
#define is_utf8_alpha(a) Perl_is_utf8_alpha(aTHX_ a)
#define xmldump_packsubs(a) Perl_xmldump_packsubs(aTHX_ a)
#define xmldump_packsubs_perl(a,b) Perl_xmldump_packsubs_perl(aTHX_ a,b)
#define xmldump_sub(a) Perl_xmldump_sub(aTHX_ a)
-#define xmldump_sub_perl(a,b) _ a,b)
+#define xmldump_sub_perl(a,b) Perl_xmldump_sub_perl(aTHX_ a,b)
#define xmldump_form(a) Perl_xmldump_form(aTHX_ a)
#define xmldump_eval() Perl_xmldump_eval(aTHX)
#define sv_catxmlsv(a,b) Perl_sv_catxmlsv(aTHX_ a,b)