diff options
| author | Douglas Lankshear <doug@lankshear.net> | 1998-02-01 01:18:13 -0800 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-02-01 22:20:20 +0000 |
| commit | 565764a853a177193a027e73655fad354d57fc10 (patch) | |
| tree | 81b4f0277636b6f8214748868d0d9d7cc791d577 /perl.c | |
| parent | 8f818fa030b966544b5cf7bdfa53e06a9c371bfe (diff) | |
| download | perl-565764a853a177193a027e73655fad354d57fc10.tar.gz | |
[asperl] added AS patch#3
Message-Id: <01BD2EF2.53433A40.dougl@ActiveState.com>
To: "'Gurusamy Sarathy'" <gsar@umich.edu>
Here's an additional diff against //depot/asperl
The field name mg_length was changed back to mg_len
The function name mg_len was change to mg_length
The need for sort_mutex removed thanks to the code derived
from Tom Horsley's work.
-- Doug
p4raw-id: //depot/asperl@451
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 11 |
1 files changed, 4 insertions, 7 deletions
@@ -164,10 +164,6 @@ perl_construct(register PerlInterpreter *sv_interp) MUTEX_INIT(&threads_mutex); COND_INIT(&nthreads_cond); -#ifdef PERL_OBJECT - MUTEX_INIT(&sort_mutex); -#endif - thr = init_main_thread(); #endif /* USE_THREADS */ @@ -561,9 +557,6 @@ perl_destruct(register PerlInterpreter *sv_interp) hints = 0; /* Reset hints. Should hints be per-interpreter ? */ DEBUG_P(debprofdump()); -#ifdef PERL_OBJECT - MUTEX_DESTROY(&sort_mutex); -#endif #ifdef USE_THREADS MUTEX_DESTROY(&sv_mutex); MUTEX_DESTROY(&eval_mutex); @@ -596,6 +589,7 @@ perl_free(PerlInterpreter *sv_interp) #endif { #ifdef PERL_OBJECT + Safefree(this); #else if (!(curinterp = sv_interp)) return; @@ -946,6 +940,9 @@ print \" \\@INC:\\n @INC\\n\";"); CvPADLIST(compcv) = comppadlist; boot_core_UNIVERSAL(); +#if defined(WIN32) && defined(PERL_OBJECT) + BootDynaLoader(); +#endif if (xsinit) (*xsinit)(THIS); /* in case linked C routines want magical variables */ #if defined(VMS) || defined(WIN32) || defined(DJGPP) |