#define ss_dup Perl_ss_dup
#define any_dup Perl_any_dup
#define he_dup Perl_he_dup
+#define hek_dup Perl_hek_dup
#define re_dup Perl_re_dup
#define fp_dup Perl_fp_dup
#define dirp_dup Perl_dirp_dup
#define ptr_table_free Perl_ptr_table_free
# if defined(HAVE_INTERP_INTERN)
#define sys_intern_dup Perl_sys_intern_dup
+# endif
+#endif
+#if defined(HAVE_INTERP_INTERN)
#define sys_intern_clear Perl_sys_intern_clear
#define sys_intern_init Perl_sys_intern_init
-# endif
#endif
#define custom_op_name Perl_custom_op_name
#define custom_op_desc Perl_custom_op_desc
#endif
#endif
#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
#define ck_anoncode Perl_ck_anoncode
#define ck_bitop Perl_ck_bitop
#define ck_concat Perl_ck_concat
#define ck_svconst Perl_ck_svconst
#define ck_trunc Perl_ck_trunc
#define ck_unpack Perl_ck_unpack
-#ifdef PERL_CORE
#define is_handle_constructor S_is_handle_constructor
#define is_list_assignment S_is_list_assignment
#define cop_free S_cop_free
#define ss_dup(a,b) Perl_ss_dup(aTHX_ a,b)
#define any_dup(a,b) Perl_any_dup(aTHX_ a,b)
#define he_dup(a,b,c) Perl_he_dup(aTHX_ a,b,c)
+#define hek_dup(a,b) Perl_hek_dup(aTHX_ a,b)
#define re_dup(a,b) Perl_re_dup(aTHX_ a,b)
#define fp_dup(a,b,c) Perl_fp_dup(aTHX_ a,b,c)
#define dirp_dup(a) Perl_dirp_dup(aTHX_ a)
#define ptr_table_free(a) Perl_ptr_table_free(aTHX_ a)
# if defined(HAVE_INTERP_INTERN)
#define sys_intern_dup(a,b) Perl_sys_intern_dup(aTHX_ a,b)
+# endif
+#endif
+#if defined(HAVE_INTERP_INTERN)
#define sys_intern_clear() Perl_sys_intern_clear(aTHX)
#define sys_intern_init() Perl_sys_intern_init(aTHX)
-# endif
#endif
#define custom_op_name(a) Perl_custom_op_name(aTHX_ a)
#define custom_op_desc(a) Perl_custom_op_desc(aTHX_ a)
#endif
#endif
#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
+#ifdef PERL_CORE
#define ck_anoncode(a) Perl_ck_anoncode(aTHX_ a)
#define ck_bitop(a) Perl_ck_bitop(aTHX_ a)
#define ck_concat(a) Perl_ck_concat(aTHX_ a)
#define ck_svconst(a) Perl_ck_svconst(aTHX_ a)
#define ck_trunc(a) Perl_ck_trunc(aTHX_ a)
#define ck_unpack(a) Perl_ck_unpack(aTHX_ a)
-#ifdef PERL_CORE
#define is_handle_constructor(a,b) S_is_handle_constructor(aTHX_ a,b)
#define is_list_assignment(a) S_is_list_assignment(aTHX_ a)
#define cop_free(a) S_cop_free(aTHX_ a)