diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-11 03:39:07 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-05-11 03:39:07 +0000 |
| commit | 52853b95ebed443e023862f2a1db2614404699e5 (patch) | |
| tree | 716f2d199f85543401f4e5818d0eaa6d67d6baf1 /embed.h | |
| parent | b4bcd66247e5bc9051bd228e0f63bc1a5ffcf2a7 (diff) | |
| download | perl-52853b95ebed443e023862f2a1db2614404699e5.tar.gz | |
PL_sys_intern was being initialized too late on windows
p4raw-id: //depot/perl@6104
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -830,6 +830,9 @@ #define ptr_table_store Perl_ptr_table_store #define ptr_table_split Perl_ptr_table_split #endif +#if defined(HAVE_INTERP_INTERN) +#define sys_intern_init Perl_sys_intern_init +#endif #if defined(PERL_OBJECT) #else #endif @@ -2266,6 +2269,9 @@ #define ptr_table_store(a,b,c) Perl_ptr_table_store(aTHX_ a,b,c) #define ptr_table_split(a) Perl_ptr_table_split(aTHX_ a) #endif +#if defined(HAVE_INTERP_INTERN) +#define sys_intern_init() Perl_sys_intern_init(aTHX) +#endif #if defined(PERL_OBJECT) #else #endif @@ -4441,6 +4447,10 @@ #define Perl_ptr_table_split CPerlObj::Perl_ptr_table_split #define ptr_table_split Perl_ptr_table_split #endif +#if defined(HAVE_INTERP_INTERN) +#define Perl_sys_intern_init CPerlObj::Perl_sys_intern_init +#define sys_intern_init Perl_sys_intern_init +#endif #if defined(PERL_OBJECT) #else #endif |