summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-07-04 04:59:35 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-07-04 04:59:35 +0000
commit3dbbd0f5d38d873da0cc4a01718eb88e4dc6ae89 (patch)
tree68d449d830de25c927c350706149f260c9eaa484 /objXSUB.h
parentfd89de3aad1f46316826050b187615df670e00d3 (diff)
downloadperl-3dbbd0f5d38d873da0cc4a01718eb88e4dc6ae89.tar.gz
adjust change#6299
p4raw-link: @6299 on //depot/perl: 6c644e7885bc20d759d8cbcb4abaa8f14113c03b p4raw-id: //depot/perl@6302
Diffstat (limited to 'objXSUB.h')
-rw-r--r--objXSUB.h18
1 files changed, 10 insertions, 8 deletions
diff --git a/objXSUB.h b/objXSUB.h
index 7f14e2f271..b5ee2123eb 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -2166,18 +2166,10 @@
#undef sv_dup
#define sv_dup Perl_sv_dup
#if defined(HAVE_INTERP_INTERN)
-#undef Perl_sys_intern_clear
-#define Perl_sys_intern_clear pPerl->Perl_sys_intern_clear
-#undef sys_intern_clear
-#define sys_intern_clear Perl_sys_intern_clear
#undef Perl_sys_intern_dup
#define Perl_sys_intern_dup pPerl->Perl_sys_intern_dup
#undef sys_intern_dup
#define sys_intern_dup Perl_sys_intern_dup
-#undef Perl_sys_intern_init
-#define Perl_sys_intern_init pPerl->Perl_sys_intern_init
-#undef sys_intern_init
-#define sys_intern_init Perl_sys_intern_init
#endif
#undef Perl_ptr_table_new
#define Perl_ptr_table_new pPerl->Perl_ptr_table_new
@@ -2196,6 +2188,16 @@
#undef ptr_table_split
#define ptr_table_split Perl_ptr_table_split
#endif
+#if defined(HAVE_INTERP_INTERN)
+#undef Perl_sys_intern_clear
+#define Perl_sys_intern_clear pPerl->Perl_sys_intern_clear
+#undef sys_intern_clear
+#define sys_intern_clear Perl_sys_intern_clear
+#undef Perl_sys_intern_init
+#define Perl_sys_intern_init pPerl->Perl_sys_intern_init
+#undef sys_intern_init
+#define sys_intern_init Perl_sys_intern_init
+#endif
#if defined(PERL_OBJECT)
#else
#endif