[PATCH] startperl to respect versiononly

Hi

Don't know how much use this is.

It is meant to solve the problem that if I install a versiononly 
version and then use this version of perl to add an extension 
which creates scripts, these scripts start with have the wrong
#! line.  In Configure, setting $versiononly causes $startperl
to have $version attached.

The actual change is quite small, moving the versiononly unit
before the startperl unit is much more noticable.

Robin

--- Configure.orig	Tue Oct 24 19:01:09 2000
+++ Configure	Fri Oct 27 19:26:50 2000
@@ -7268,6 +7268,25 @@
 . ./myread
 perladmin="$ans"
 
+: determine whether to only install version-specific parts.
+echo " "
+$cat <<EOM
+Do you want to install only the version-specific parts of the perl
+distribution?  Usually you do *not* want to do this.
+EOM
+case "$versiononly" in
+"$define"|[Yy]*|true) dflt='y' ;;
+*) dflt='n';
+esac
+rp="Do you want to install only the version-specific parts of perl?"
+. ./myread
+case "$ans" in
+[yY]*)	val="$define";;
+*)	val="$undef" ;;
+esac
+set versiononly
+eval $setvar
+
 : figure out how to guarantee perl startup
 case "$startperl" in
 '')
@@ -7282,7 +7301,10 @@
 a shell by starting the script with a single ':' character.
 
 EOH
-		dflt="$binexp/perl"
+		case "$versiononly" in
+		"$define")	dflt="$binexp/perl$version";;
+		*)		dflt="$binexp/perl";;
+		esac
 		rp='What shall I put after the #! to start up perl ("none" to not use #!)?'
 		. ./myread
 		case "$ans" in
@@ -7446,25 +7468,6 @@
 else
 	installvendorbin="$vendorbinexp"
 fi
-
-: determine whether to only install version-specific parts.
-echo " "
-$cat <<EOM
-Do you want to install only the version-specific parts of the perl
-distribution?  Usually you do *not* want to do this.
-EOM
-case "$versiononly" in
-"$define"|[Yy]*|true) dflt='y' ;;
-*) dflt='n';
-esac
-rp="Do you want to install only the version-specific parts of perl?"
-. ./myread
-case "$ans" in
-[yY]*)	val="$define";;
-*)	val="$undef" ;;
-esac
-set versiononly
-eval $setvar
 
 : see if qgcvt exists
 set qgcvt d_qgcvt

-- 
Robin Barker                        | Email: Robin.Barker@npl.co.uk
CMSC, Building 10,                  | Phone: +44 (0) 20 8943 7090
National Physical Laboratory,       | Fax:   +44 (0) 20 8977 7091
Teddington, Middlesex, UK. TW11 OLW | WWW:   http://www.npl.co.uk

• [PATCH] startperl to respect versiononly by Robin Barker
• Re: [PATCH] startperl to respect versiononly by Jarkko Hietaniemi
• Re: [PATCH] startperl to respect versiononly by H . Merijn Brand
• Re: [PATCH] startperl to respect versiononly by Andy Dougherty