This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make 'Configure -Dcf_by=...' work
authorGisle Aas <gisle@aas.no>
Mon, 12 Jan 2004 02:35:27 +0000 (18:35 -0800)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Mon, 12 Jan 2004 13:02:21 +0000 (13:02 +0000)
Message-ID: <lrvfnh315c.fsf@caliper.activestate.com>

p4raw-id: //depot/metaconfig@22119

U/modified/cf_who.U

index 1d1d3bd..30e4df9 100644 (file)
@@ -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