From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 23 Dec 1997 15:39:12 +0000 (+0200)
Subject: Fix variable export and threading configuration for AIX:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2b22898bb64b5219f78ff904f46b783873b7356;p=p5sagit%2Fp5-mst-13.2.git

Fix variable export and threading configuration for AIX:
	Subject: [PATCH] 5.004_56: AIX 4.1.5.0: sans et avec threads

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

diff --git a/Configure b/Configure
index e73a241..b29bfab 100755
--- a/Configure
+++ b/Configure
@@ -9966,11 +9966,16 @@ int main() {
     exit(0);
 }
 EOCP
-	: Compile and link separately because the used cc might not be
-	: able to link the right CRT and libs for pthreading.
-	if $cc $ccflags -c try.c >/dev/null 2>&1 &&
-	   $ld $ldflags -o try try$obj_ext $libs >/dev/null 2>&1; then
+	if $cc $ccflags $ldflags -o try try.c $libs >/dev/null 2>&1; then
 	    yyy=`./try`
+	    case "$yyy" in
+	    detached)
+	        echo "Nope, they aren't."
+	        ;;
+	    *)
+	        echo "Yup, they are."
+	        ;;
+	    esac
 	else
 	    echo "(I can't execute the test program--assuming they are.)"
 	    yyy=joinable
@@ -9978,11 +9983,9 @@ EOCP
 	case "$yyy" in
 	detached)
 	    val="$undef"
-	    echo "Nope, they aren't."
 	    ;;
 	*)
 	    val="$define"
-	    echo "Yup, they are."
 	    ;;
 	esac
 	set d_pthreads_created_joinable
@@ -9990,7 +9993,7 @@ EOCP
 	$rm -f try try.*
     fi
 else
-    d_pthreads_created_joinable=$undef
+    d_pthreads_created_joinable="$undef"
 fi
 
 : see whether the various POSIXish _yields exist within given cccmd
diff --git a/perl_exp.SH b/perl_exp.SH
index 06b587f..067ebec 100644
--- a/perl_exp.SH
+++ b/perl_exp.SH
@@ -54,6 +54,13 @@ y*)
 	;;
 *)
 	sed -n '/^[A-Za-z]/ s/^/Perl_/p' global.sym interp.sym >> perl.exp
+	expperlvars=/tmp/exp$$pv
+	expthrdvar=/tmp/exp$$tv
+	sed -n 's/^PERLVARI*(G\([^,]*\).*/Perl_\1/p' perlvars.h >> $expperlvars
+	sed -n 's/^PERLVARI*(T\([^,]*\).*/Perl_\1/p' thrdvar.h  >> $expthrdvar
+	# The shebang line nicely sorts as the first one.
+	sort -o perl.exp -u perl.exp $expperlvars $expthrdvar
+	rm -f $expperlvars $expthrdvar
 	;;
 esac