From: Andy Dougherty <doughera@lafayette.edu>
Date: Sat, 4 Nov 2000 14:15:29 +0000 (-0500)
Subject: Configure would use a bad $myuname from an old config.sh.
X-Git-Tag: accepted/trunk/20130322.191538~33757
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=f83701cd86be3616a770a8d28c295a3f15ac21d0;p=platform%2Fupstream%2Fperl.git

Configure would use a bad $myuname from an old config.sh.

Subject: [PATCH 5.6.1-to-be and 5.7.x] Very old Configure myuname bug
Message-ID: <Pine.SOL.4.10.10011041410120.982-100000@maxwell.phys.lafayette.edu>

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

diff --git a/Configure b/Configure
index 89df03f..13e52db 100755
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
 
 # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
 #
-# Generated on Sat Nov  4 01:58:40 EET 2000 [metaconfig 3.0 PL70]
+# Generated on Sun Nov  5 00:37:41 EET 2000 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >/tmp/c1$$ <<EOF
@@ -2264,7 +2264,10 @@ if test -f config.sh; then
 	rp="I see a config.sh file.  Shall I use it to set the defaults?"
 	. UU/myread
 	case "$ans" in
-	n*|N*) echo "OK, I'll ignore it."; mv config.sh config.sh.old;;
+	n*|N*) echo "OK, I'll ignore it."
+		mv config.sh config.sh.old
+		myuname="$newmyuname"
+		;;
 	*)  echo "Fetching default answers from your old config.sh file..." >&4
 		tmp_n="$n"
 		tmp_c="$c"
@@ -2675,7 +2678,6 @@ cd UU
 	;;
 esac
 test "$override" && . ./optdef.sh
-myuname="$newmyuname"
 
 : Restore computed paths
 for file in $loclist $trylist; do