summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorDave Hartnoll <Dave_Hartnoll@3b2.com>2000-09-28 10:20:46 +0100
committerJarkko Hietaniemi <jhi@iki.fi>2000-10-03 00:00:16 +0000
commitb57a092cb822ae32e4804707ff8729ac6bb222b9 (patch)
treeb6425edea02875d2b640f154d22e81bfe0984182 /perl.c
parent6caf225c7ac914f25ae26750a8a97110fd37bc6d (diff)
downloadperl-b57a092cb822ae32e4804707ff8729ac6bb222b9.tar.gz
DLL not restartabke with threaded perl
Message-ID: <002101c02925$00aa8d80$7e0aa8c0@3b2.com> p4raw-id: //depot/perl@7119
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl.c b/perl.c
index d43a64bdf5..8e54499011 100644
--- a/perl.c
+++ b/perl.c
@@ -377,6 +377,7 @@ perl_destruct(pTHXx)
DEBUG_S(PerlIO_printf(Perl_debug_log, "perl_destruct: armageddon has arrived\n"));
MUTEX_DESTROY(&PL_threads_mutex);
COND_DESTROY(&PL_nthreads_cond);
+ PL_nthreads--;
#endif /* !defined(FAKE_THREADS) */
#endif /* USE_THREADS */