From 142c4186a0973c440f5caa0dda3e33e9e6ae7c11 Mon Sep 17 00:00:00 2001
From: Gisle Aas <gisle@aas.no>
Date: Tue, 4 Jan 2005 17:09:51 -0800
Subject: Avoid segfault when pthread_key_create fails Message-ID:
 <lracroz1gg.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@23749
---
 thread.h | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'thread.h')

diff --git a/thread.h b/thread.h
index 93062c5d77..5de28fb419 100644
--- a/thread.h
+++ b/thread.h
@@ -334,8 +334,7 @@
     STMT_START {						\
 	int _eC_;						\
 	if ((_eC_ = pthread_key_create(&PL_thr_key, 0))) {	\
-	    PerlIO_printf(PerlIO_stderr(), "panic: pthread_key_create (%d) [%s:%d]",	\
-				 _eC_, __FILE__, __LINE__);	\
+            write(2, "panic: pthread_key_create failed\n", 33); \
 	    exit(1);						\
 	}							\
     } STMT_END
-- 
cgit v1.2.1