From: Dave Hartnoll <Dave_Hartnoll@3b2.com>
Date: Thu, 28 Sep 2000 09:20:46 +0000 (+0100)
Subject: DLL not restartabke with threaded perl
X-Git-Tag: accepted/trunk/20130322.191538~34063
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b57a092cb822ae32e4804707ff8729ac6bb222b9;p=platform%2Fupstream%2Fperl.git

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
--- 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 */