From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 11 Apr 2002 13:02:10 +0000 (+0000)
Subject: AIX: strerror_r() needs dTHX.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48c64e3e39f8ada65ba382d129d9a15be02ee5e0;p=p5sagit%2Fp5-mst-13.2.git

AIX: strerror_r() needs dTHX.

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

diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs
index 865cba1..58dde5f 100644
--- a/ext/DynaLoader/dl_aix.xs
+++ b/ext/DynaLoader/dl_aix.xs
@@ -193,6 +193,10 @@ char *strerrorcat(char *str, int err) {
       strcat(str, msg);
     free(buf);
 #else
+# ifdef USE_ITHREADS
+    dTHX;
+# endif
+
     if ((msg = strerror(err)) == 0)
       msg = strerror_failed;
     msgsiz = strlen(msg);		/* Note msg = buf and free() above. */
@@ -221,6 +225,10 @@ char *strerrorcpy(char *str, int err) {
       strcpy(str, msg);
     free(buf);
 #else
+# ifdef USE_ITHREADS
+    dTHX;
+#endif
+
     if ((msg = strerror(err)) == 0)
       msg = strerror_failed;
     msgsiz = strlen(msg);	/* Note msg = buf and free() above. */