Introduce myconfig.SH.

To: Jarkko Hietaniemi <jhi@iki.fi>
Cc: Nick Ing-Simmons <nik@tiuk.ti.com>, Perl Porters <perl5-porters@perl.org>
Subject: [PATCH] myconfig.SH (was Re: perl install bug on AIX 4.3.1.0)
Message-Id: <Pine.GSU.4.05.9903301222280.15987-100000@newton.phys>

p4raw-id: //depot/cfgperl@3200

diff --git a/MANIFEST b/MANIFEST
index 2b69bc2..60612f2 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -857,7 +857,7 @@ mpeix/mpeixish.h    MPE/iX port
 mpeix/nm               MPE/iX port
 mpeix/relink           MPE/iX port
 mv-if-diff             Script to mv a file if it changed
-myconfig               Prints summary of the current configuration
+myconfig.SH            Prints summary of the current configuration
 nostdio.h              Cause compile error on stdio calls
 op.c                   Opcode syntax tree code
 op.h                   Opcode syntax tree header

diff --git a/myconfig b/myconfig.SH
old mode 100755 (executable)
new mode 100644 (file)
similarity index 67%
rename from myconfig
rename to myconfig.SH
index 02ee0a6..dd2b914
--- a/myconfig
+++ b/myconfig.SH
@@ -1,22 +1,32 @@
-#!/bin/sh
+case $CONFIG in
+'')
+       if test -f config.sh; then TOP=.;
+       elif test -f ../config.sh; then TOP=..;
+       elif test -f ../../config.sh; then TOP=../..;
+       elif test -f ../../../config.sh; then TOP=../../..;
+       elif test -f ../../../../config.sh; then TOP=../../../..;
+       else
+           echo "Can't find the perl config.sh file produced by Configure"; 
+           exit 1
+       fi
+       . $TOP/config.sh
+       ;;
+esac
+: This forces SH files to create target in same directory as SH file.
+: This is so that make depend always knows where to find SH derivatives.
+case "$0" in
+*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
+esac
+echo "Extracting myconfig (with variable substitutions)"
+$spitshell >myconfig <<!GROK!THIS!
+$startsh
 
 # This script is designed to provide a handy summary of the configuration
 # information being used to build perl. This is especially useful if you
 # are requesting help from comp.lang.perl.misc on usenet or via mail.
 
-if test -f config.sh; then TOP=.;
-elif test -f ../config.sh; then TOP=..;
-elif test -f ../../config.sh; then TOP=../..;
-elif test -f ../../../config.sh; then TOP=../../..;
-elif test -f ../../../../config.sh; then TOP=../../../..;
-else
-       echo "Can't find the perl config.sh file produced by Configure"; exit 1
-fi
-. $TOP/config.sh
-
 # Note that the text lines /^Summary of/ .. /^\s*$/ are copied into Config.pm.
-
-$spitshell <<!GROK!THIS!
+cat <<'!NO!SUBS!'
 Summary of my $package (revision $baserev version $PERL_VERSION subversion $PERL_SUBVERSION) configuration:
   Platform:
     osname=$osname, osvers=$osvers, archname=$archname
@@ -42,4 +52,7 @@ Summary of my $package (revision $baserev version $PERL_VERSION subversion $PERL
     dlsrc=$dlsrc, dlext=$dlext, d_dlsymun=$d_dlsymun, ccdlflags='$ccdlflags'
     cccdlflags='$cccdlflags', lddlflags='$lddlflags'
 
+!NO!SUBS!
 !GROK!THIS!
+chmod 755 myconfig
+$eunicefix myconfig