From: Andy Armstrong <andy@hexten.net>
Date: Sat, 12 Jan 2008 20:27:46 +0000 (+0000)
Subject: Re: [PATCH] Stop DTrace config option looping in non-interactive mode
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea9222e0361fc718c049fb5b7d00308ef9b0978d;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Stop DTrace config option looping in non-interactive mode
Message-Id: <4C6BD298-5CD3-49EA-8FED-4A6DA24BFA7B@hexten.net>
Date: Sat, 12 Jan 2008 20:27:46 +0000

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

diff --git a/Configure b/Configure
index ee2662d..712b458 100755
--- a/Configure
+++ b/Configure
@@ -8961,7 +8961,7 @@ DTrace is a diagnosis and performance analysis tool from Sun.
 If this doesn't make any sense to you, just accept the default '$dflt'.
 EOM
 
-while test 1 ; do
+while $test 1 ; do
 	case "$usedtrace" in
 	$define|true|[yY]*) 
 		dflt='y' 
@@ -8994,7 +8994,7 @@ while test 1 ; do
 	set dtrace
 	eval $setvar
 	
-	if test -f $dtrace
+	if $test -f $dtrace
 	then
 		if $dtrace -h -s ../perldtrace.d \
 			-o perldtrace.tmp >/dev/null 2>&1 \
@@ -9016,8 +9016,21 @@ EOM
 		break;
 	fi
 
-	echo "$dtrace was not found."
-	echo " "
+	case "$fastread" in
+	yes)
+		cat >&2 <<EOM
+
+*** $me:  Fatal Error:  $dtrace not found.
+*** Can't continue.
+
+EOM
+		exit 1
+		;;
+	*)
+		echo "*** $dtrace was not found."
+		echo " "
+		;;
+	esac
 done
 
 : define an is-a-typedef? function