summaryrefslogtreecommitdiff
path: root/objXSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-05-11 03:39:07 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-05-11 03:39:07 +0000
commit52853b95ebed443e023862f2a1db2614404699e5 (patch)
tree716f2d199f85543401f4e5818d0eaa6d67d6baf1 /objXSUB.h
parentb4bcd66247e5bc9051bd228e0f63bc1a5ffcf2a7 (diff)
downloadperl-52853b95ebed443e023862f2a1db2614404699e5.tar.gz
PL_sys_intern was being initialized too late on windows
p4raw-id: //depot/perl@6104
Diffstat (limited to 'objXSUB.h')
-rw-r--r--objXSUB.h6
1 files changed, 6 insertions, 0 deletions
diff --git a/objXSUB.h b/objXSUB.h
index 8a0a81e5fd..97e9ba4098 100644
--- a/objXSUB.h
+++ b/objXSUB.h
@@ -2184,6 +2184,12 @@
#undef ptr_table_split
#define ptr_table_split Perl_ptr_table_split
#endif
+#if defined(HAVE_INTERP_INTERN)
+#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