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 /perl.c | |
| 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 'perl.c')
| -rw-r--r-- | perl.c | 6 |
1 files changed, 5 insertions, 1 deletions
@@ -272,6 +272,10 @@ perl_construct(pTHXx) PL_localpatches = local_patches; /* For possible -v */ #endif +#ifdef HAVE_INTERP_INTERN + sys_intern_init(); +#endif + PerlIO_init(); /* Hook to IO system */ PL_fdpid = newAV(); /* for remembering popen pids by fd */ @@ -2505,7 +2509,7 @@ S_open_script(pTHX_ char *scriptname, bool dosearch, SV *sv, int *fdscript) sv_catpvn(sv, "-I", 2); sv_catpv(sv,PRIVLIB_EXP); -#ifdef MSDOS +#if defined(MSDOS) || defined(WIN32) Perl_sv_setpvf(aTHX_ cmd, "\ sed %s -e \"/^[^#]/b\" \ -e \"/^#[ ]*include[ ]/b\" \ |