PL_sys_intern was being initialized too late on windows

p4raw-id: //depot/perl@6104

1 files changed, 9 insertions, 0 deletions

diff --git a/perlapi.c b/perlapi.c
index fc71fb381b..125c6e1003 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -3943,6 +3943,15 @@ Perl_ptr_table_split(pTHXo_ PTR_TBL_t *tbl)
     ((CPerlObj*)pPerl)->Perl_ptr_table_split(tbl);
 }
 #endif
+#if defined(HAVE_INTERP_INTERN)
+
+#undef  Perl_sys_intern_init
+void
+Perl_sys_intern_init(pTHXo)
+{
+    ((CPerlObj*)pPerl)->Perl_sys_intern_init();
+}
+#endif
 #if defined(PERL_OBJECT)
 #else
 #endif