diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-03-12 08:25:56 -0800 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-13 00:38:35 +0000 |
| commit | 59c9e5d6897bd1f34e9820edbadaf05045e45612 (patch) | |
| tree | f30028c24476044c105dc5c8c13db4bbb394ac14 /Configure | |
| parent | 2c2f421ac70f8456ea8978183ad9afb3d1054ad4 (diff) | |
| download | perl-59c9e5d6897bd1f34e9820edbadaf05045e45612.tar.gz | |
OS/390 mydomain last gasp before silly guess (was Re: What do I need to build EBCDIC perl?)
Message-ID: <Pine.OSF.4.10.10103121619020.180841-100000@aspara.forte.com>
p4raw-id: //depot/perl@9113
Diffstat (limited to 'Configure')
| -rwxr-xr-x | Configure | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Sat Mar 3 02:41:27 EET 2001 [metaconfig 3.0 PL70] +# Generated on Tue Mar 13 02:35:43 EET 2001 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.org) cat >c1$$ <<EOF @@ -7362,6 +7362,11 @@ case "$myhostname" in esac ;; esac + case "$dflt$osname" in + .os390) echo "(Attempting domain name extraction from //'SYS1.TCPPARMS(TCPDATA)')" + dflt=.``awk '/^DOMAINORIGIN/ {print $2}' "//'SYS1.TCPPARMS(TCPDATA)'" 2>/dev/null` + ;; + esac case "$dflt" in .) echo "(Lost all hope -- silly guess then)" dflt='.uucp' |