X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=embed.h;h=43f18b3cfeab9dcc897a0dec46954a1565bce36a;hb=a0288114f9bfa2566e353eba77114ea63b616631;hp=648f821f420a1f65977562447b9c02e3dd1be80f;hpb=0bff533ca2a343dc64973f34f3c611670d92fff1;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/embed.h b/embed.h
index 648f821..43f18b3 100644
--- a/embed.h
+++ b/embed.h
@@ -992,9 +992,11 @@
 #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
@@ -2971,9 +2973,11 @@
 #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)