Move malloc_mutex initialisation/destruction:

	Subject:  patch to 5.004_54 for pthreads with Perl's malloc

p4raw-id: //depot/perl@299

1 files changed, 1 insertions, 0 deletions

diff --git a/malloc.c b/malloc.c
index 5f0c7fd185..ae3773acc0 100644
--- a/malloc.c
+++ b/malloc.c
@@ -191,6 +191,7 @@ emergency_sbrk(size)
     }
 
     if (!emergency_buffer) {		
+	dTHR;
 	/* First offense, give a possibility to recover by dieing. */
 	/* No malloc involved here: */
 	GV **gvp = (GV**)hv_fetch(defstash, "^M", 2, 0);