From: Alan Burlison <Alan.Burlison@uk.sun.com>
Date: Thu, 15 May 2003 22:17:55 +0000 (+0100)
Subject: Re: Last Call For (Least) Favourite Issues For 5.8.1
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ab900c531c1e8d7aefac3b0c5e42704bfb913d3e;p=p5sagit%2Fp5-mst-13.2.git

Re: Last Call For (Least) Favourite Issues For 5.8.1
Message-ID: <3EC40403.9000804@sun.com>

(fixed symbol scanning for Solaris 10)

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

diff --git a/Configure b/Configure
index 8e0b995..201dedb 100755
--- a/Configure
+++ b/Configure
@@ -7222,7 +7222,7 @@ $grep fprintf libc.tmp > libc.ptf
 xscan='eval "<libc.ptf $com >libc.list"; $echo $n ".$c" >&4'
 xrun='eval "<libc.tmp $com >libc.list"; echo "done." >&4'
 xxx='[ADTSIW]'
-if com="$sed -n -e 's/__IO//' -e 's/^.* $xxx  *_[_.]*//p' -e 's/^.* $xxx  *//p'";\
+if com="$sed -n -e 's/__IO//' -e 's/^.* $xxx  *//p'";\
 	eval $xscan;\
 	$contains '^fprintf$' libc.list >/dev/null 2>&1; then
 		eval $xrun
@@ -7366,25 +7366,23 @@ true-*) tx=no; eval "tval=\$$4"; case "$tval" in "") tx=yes;; esac;;
 esac;
 case "$tx" in
 yes)
-	case "$runnm" in
-	true)
-		if $contains $tlook $tf >/dev/null 2>&1;
-		then tval=true;
-		else tval=false;
-		fi;;
-	*)
+	tval=false;
+	if $test "$runnm" = "true" && $contains $tlook $tf >/dev/null 2>&1; then
+		tval=true;
+	else
 		echo "int main() { extern short $1$tdc; printf(\"%hd\", $1$tc); }" > t.c;
-		if $cc -o t $optimize $ccflags $ldflags t.c $libs >/dev/null 2>&1;
-		then tval=true;
-		else tval=false;
+		if $cc -o t $optimize $ccflags $ldflags t.c $libs >/dev/null 2>&1; then
+			tval=true;
 		fi;
-		$rm -f t t.c;;
-	esac;;
+		$rm -f t t.c;
+	fi;
+	;;
 *)
 	case "$tval" in
 	$define) tval=true;;
 	*) tval=false;;
-	esac;;
+	esac;
+	;;
 esac;
 eval "$2=$tval"'