diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-17 23:43:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-17 23:43:59 +0000 |
| commit | b363f7ed458679f785ff5f459a6ae701688eb6f5 (patch) | |
| tree | d1d739a0d522d5a7669690df46c1531ff207ca3e /perl.c | |
| parent | 32e30700cf966bf527dceb0482a205346d2d955f (diff) | |
| download | perl-b363f7ed458679f785ff5f459a6ae701688eb6f5.tar.gz | |
PL_malloc_mutex needs to be global, not per-interpreter
(malloc.c has static data)
p4raw-id: //depot/perl@4403
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 15 |
1 files changed, 13 insertions, 2 deletions
@@ -811,7 +811,6 @@ S_parse_body(pTHX_ va_list args) #else sv_catpv(PL_Sv,"print \"\\nCharacteristics of this binary (from libperl): \\n\","); #endif -#if defined(DEBUGGING) || defined(MULTIPLICITY) sv_catpv(PL_Sv,"\" Compile-time options:"); # ifdef DEBUGGING sv_catpv(PL_Sv," DEBUGGING"); @@ -819,8 +818,20 @@ S_parse_body(pTHX_ va_list args) # ifdef MULTIPLICITY sv_catpv(PL_Sv," MULTIPLICITY"); # endif +# ifdef USE_THREADS + sv_catpv(PL_Sv," USE_THREADS"); +# endif +# ifdef PERL_OBJECT + sv_catpv(PL_Sv," PERL_OBJECT"); +# endif +# ifdef PERL_IMPLICIT_CONTEXT + sv_catpv(PL_Sv," PERL_IMPLICIT_CONTEXT"); +# endif +# ifdef PERL_IMPLICIT_SYS + sv_catpv(PL_Sv," PERL_IMPLICIT_SYS"); +# endif sv_catpv(PL_Sv,"\\n\","); -#endif + #if defined(LOCAL_PATCH_COUNT) if (LOCAL_PATCH_COUNT > 0) { int i; |