From 8e9464f100f3a92c77a6886c84855b4d1f587e2d Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 16 May 2001 13:00:12 +0000
Subject: DG-UX threading patches, including a README.dgux, from Takis
 Psarogiannakopoulos.

p4raw-id: //depot/perl@10121
---
 ext/Thread/Thread.xs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'ext/Thread/Thread.xs')

diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index cb2e395051..c3b94eb6a8 100644
--- a/ext/Thread/Thread.xs
+++ b/ext/Thread/Thread.xs
@@ -280,6 +280,10 @@ newthread (pTHX_ SV *startsv, AV *initargs, char *classname)
 	attr_inited = 1;
 	err = pthread_attr_init(&attr);
 #  ifdef PTHREAD_ATTR_SETDETACHSTATE
+#ifdef DGUX
+	if (err == 0)
+	    err = pthread_attr_setstacksize(&attr, (1024*16));
+#endif
 	if (err == 0)
 	    err = PTHREAD_ATTR_SETDETACHSTATE(&attr, attr_joinable);
 
-- 
cgit v1.2.1