From: Gisle Aas <gisle@aas.no>
Date: Mon, 12 Jan 2004 02:35:27 +0000 (-0800)
Subject: Make 'Configure -Dcf_by=...' work
X-Git-Tag: 5.26.1~471
X-Git-Url: https://perl5.git.perl.org/metaconfig.git/commitdiff_plain/dbf7ebf959d9d5db65cc0497eabd790c2e2638ba

Make 'Configure -Dcf_by=...' work
Message-ID: <lrvfnh315c.fsf@caliper.activestate.com>

p4raw-id: //depot/metaconfig@22119
---

diff --git a/U/modified/cf_who.U b/U/modified/cf_who.U
index 1d1d3bd..30e4df9 100644
--- a/U/modified/cf_who.U
+++ b/U/modified/cf_who.U
@@ -53,12 +53,15 @@ cf_time=`LC_ALL=C; LANGUAGE=C; export LC_ALL; export LANGUAGE; $date 2>&1`
 ?X: Uses case instead of $test so it can be put before $test is defined.
 ?X: Don't redirect to a file because on Ultrix (under script?) logname
 ?X: outputs a blank line first.  This method will apparently work.
-cf_by=`(logname) 2>/dev/null`
 case "$cf_by" in
 "")
-	cf_by=`(whoami) 2>/dev/null`
+	cf_by=`(logname) 2>/dev/null`
 	case "$cf_by" in
-	"") cf_by=unknown ;;
+	"")
+		cf_by=`(whoami) 2>/dev/null`
+		case "$cf_by" in
+		"") cf_by=unknown ;;
+		esac ;;
 	esac ;;
 esac