summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-03-10 04:57:07 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-03-10 04:57:07 +0000
commit59bd0823b6625605b67ec19bd9bcc4dd06530e7e (patch)
treec458c6636e5d8beb343d9a9b8fdec8f949f42584 /perl.c
parentcb8129f94a333dfcf2cb8cf5b66784f951fc14de (diff)
downloadperl-59bd0823b6625605b67ec19bd9bcc4dd06530e7e.tar.gz
Renaming tweaks, and split off the reentrant "superbuffer"
init routine. p4raw-id: //depot/perl@15139
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl.c b/perl.c
index 6b8532e93d..17b43fc2a6 100644
--- a/perl.c
+++ b/perl.c
@@ -264,8 +264,7 @@ perl_construct(pTHXx)
PL_regex_pad = AvARRAY(PL_regex_padav);
#endif
#ifdef USE_REENTRANT_API
- New(31337, PL_reentrant_buffer,1, REBUF);
- New(31337, PL_reentrant_buffer->tmbuff,1, struct tm);
+ Perl_reentrant_init(aTHX);
#endif
/* Note that strtab is a rather special HV. Assumptions are made
@@ -836,7 +835,7 @@ perl_destruct(pTHXx)
#endif /* USE_5005THREADS */
#ifdef USE_REENTRANT_API
- Safefree(PL_reentrant_buffer->tmbuff);
+ Safefree(PL_reentrant_buffer->tmbuf);
Safefree(PL_reentrant_buffer);
#endif