Use /proc/self/exe to set $^X on linux (or anywhere new

Configure unit detects the feature).

p4raw-id: //depot/perlio@13109

1 files changed, 40 insertions, 21 deletions

diff --git a/Configure b/Configure
index ce5edd6a59..cc4a2a3ec7 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 Mon Nov  5 17:50:04 EET 2001 [metaconfig 3.0 PL70]
+# Generated on Mon Nov 19 22:50:26 GMT 2001 [metaconfig 3.0 PL70]
 # (with additional metaconfig patches by perlbug@perl.org)
 
 cat >c1$$ <<EOF
@@ -899,6 +899,7 @@ prefixexp=''
 installprivlib=''
 privlib=''
 privlibexp=''
+d_procselfexe=''
 prototype=''
 ptrsize=''
 d_PRIXU64=''
@@ -1030,18 +1031,6 @@ if test -f /etc/unixtovms.exe; then
 fi
 
 i_whoami=''
-ccname=''
-ccversion=''
-perllibs=''
-: set useposix=false in your hint file to disable the POSIX extension.
-useposix=true
-: set useopcode=false in your hint file to disable the Opcode extension.
-useopcode=true
-: Trailing extension.  Override this in a hint file, if needed.
-_exe=''
-: Extra object files, if any, needed on this platform.
-archobjs=''
-archname=''
 : Possible local include directories to search.
 : Set locincpth to "" in a hint file to defeat local include searches.
 locincpth="/usr/local/include /opt/local/include /usr/gnu/include"
@@ -1050,6 +1039,10 @@ locincpth="$locincpth /opt/gnu/include /usr/GNU/include /opt/GNU/include"
 : no include file wanted by default
 inclwanted=''
 
+: Trailing extension.  Override this in a hint file, if needed.
+_exe=''
+: Extra object files, if any, needed on this platform.
+archobjs=''
 groupstype=''
 libnames=''
 : change the next line if compiling for Xenix/286 on Xenix/386
@@ -1073,17 +1066,25 @@ plibpth=''
 libswanted=''
 : some systems want to use only the non-versioned libso:s
 ignore_versioned_solibs=''
+: full support for void wanted by default
+defvoidused=15
+
+ccname=''
+ccversion=''
+perllibs=''
+: set useposix=false in your hint file to disable the POSIX extension.
+useposix=true
+: set useopcode=false in your hint file to disable the Opcode extension.
+useopcode=true
 archname64=''
 ccflags_uselargefiles=''
 ldflags_uselargefiles=''
 libswanted_uselargefiles=''
 : set usemultiplicity on the Configure command line to enable multiplicity.
 : set usesocks on the Configure command line to enable socks.
+archname=''
 : set usethreads on the Configure command line to enable threads.
 usereentrant='undef'
-: full support for void wanted by default
-defvoidused=15
-
 : List of libraries we want.
 : If anyone needs -lnet, put it in a hint file.
 libswanted='sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl'
@@ -1128,7 +1129,7 @@ case "$sh" in
 esac
 
 case "$sh" in
-'')	cat >&2 <<EOM
+'')	cat <<EOM >&2
 $me:  Fatal Error:  I can't find a Bourne Shell anywhere.  
 
 Usually it's in /bin/sh.  How did you even get this far?
@@ -11424,6 +11425,27 @@ eval $inlibc
 set poll d_poll
 eval $inlibc
 
+: see if readlink exists
+set readlink d_readlink
+eval $inlibc
+
+echo " "
+echo "Checking for /proc/self/exe ..." >&4
+val="$undef"
+if $test "$d_readlink" = "$define" ; then
+	if $issymlink /proc/self/exe ; then
+		$ls -l /proc/self/exe > reflect
+		if $contains $ls reflect >/dev/null; then
+			val="$define"
+			echo "You have linux-like /proc/self/exe"
+		fi
+		$rm reflect
+	fi
+fi
+set d_procselfexe
+eval $setvar
+
+
 : see if pthread_atfork exists
 set pthread_atfork d_pthread_atfork
 eval $inlibc
@@ -11598,10 +11620,6 @@ eval $inlibc
 set rewinddir d_rewinddir
 eval $inlibc
 
-: see if readlink exists
-set readlink d_readlink
-eval $inlibc
-
 : see if readv exists
 set readv d_readv
 eval $inlibc
@@ -16942,6 +16960,7 @@ d_phostname='$d_phostname'
 d_pipe='$d_pipe'
 d_poll='$d_poll'
 d_portable='$d_portable'
+d_procselfexe='$d_procselfexe'
 d_pthread_atfork='$d_pthread_atfork'
 d_pthread_yield='$d_pthread_yield'
 d_pwage='$d_pwage'