X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=thread.h;h=20152f3fea41ab5ae97bb5956160cc53dcbc8961;hb=170c5524f26ec8d57d5b2a5413842df92809a613;hp=93062c5d7715e6816786c969b6d600154571c52e;hpb=b5f8cc5c1ad883dce8b5a96bed64f2340aa86716;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/thread.h b/thread.h
index 93062c5..20152f3 100644
--- a/thread.h
+++ b/thread.h
@@ -1,6 +1,7 @@
 /*    thread.h
  *
- *    Copyright (C) 1999, 2000, 2001, 2002, 2004, by Larry Wall and others
+ *    Copyright (C) 1999, 2000, 2001, 2002, 2004, 2005
+ *    by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -334,8 +335,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