From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 19 May 2003 04:40:11 +0000 (+0000)
Subject: Slightly wrong panic messages.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ddcc6fdc2c2811c8014d35126e40f07b13b87e32;p=p5sagit%2Fp5-mst-13.2.git

Slightly wrong panic messages.

p4raw-id: //depot/perl@19562
---

diff --git a/ext/threads/threads.xs b/ext/threads/threads.xs
index 580f699..4e34a40 100755
--- a/ext/threads/threads.xs
+++ b/ext/threads/threads.xs
@@ -13,7 +13,7 @@
 #define PERL_THREAD_ALLOC_SPECIFIC(k) \
 STMT_START {\
   if((k = TlsAlloc()) == TLS_OUT_OF_INDEXES) {\
-    PerlIO_printf(PerlIO_stderr(),"panic threads.h: TlsAlloc");\
+    PerlIO_printf(PerlIO_stderr(),"panic threads.xs: TlsAlloc");\
     exit(1);\
   }\
 } STMT_END
@@ -31,7 +31,7 @@ typedef perl_os_thread pthread_t;
 #define PERL_THREAD_GETSPECIFIC(k,v) pthread_getspecific(k,&v)
 #define PERL_THREAD_ALLOC_SPECIFIC(k) STMT_START {\
   if(pthread_keycreate(&(k),0)) {\
-    PerlIO_printf(PerlIO_stderr(), "panic threads.h: pthread_key_create");\
+    PerlIO_printf(PerlIO_stderr(), "panic threads.xs: pthread_key_create");\
     exit(1);\
   }\
 } STMT_END
@@ -40,7 +40,7 @@ typedef perl_os_thread pthread_t;
 #define PERL_THREAD_GETSPECIFIC(k,v) v = pthread_getspecific(k)
 #define PERL_THREAD_ALLOC_SPECIFIC(k) STMT_START {\
   if(pthread_key_create(&(k),0)) {\
-    PerlIO_printf(PerlIO_stderr(), "panic threads.h: pthread_key_create");\
+    PerlIO_printf(PerlIO_stderr(), "panic threads.xs: pthread_key_create");\
     exit(1);\
   }\
 } STMT_END