DLL not restartabke with threaded perl

Message-ID: <002101c02925$00aa8d80$7e0aa8c0@3b2.com>

p4raw-id: //depot/perl@7119

diff --git a/perl.c b/perl.c
index d43a64b..8e54499 100644 (file)
--- 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 */