summaryrefslogtreecommitdiffstats
path: root/Configure
diff options
context:
space:
mode:
authorAndy Polyakov <appro@openssl.org>2016-09-09 23:45:57 +0200
committerAndy Polyakov <appro@openssl.org>2016-09-13 13:22:28 +0200
commit758baa3dc250f12b92b1bebe86ad114f25763c04 (patch)
tree6d0ead8b535a791960fef6c6cf7a87bf704a4928 /Configure
parent77a6be4dfc2ecf406c2559a99bea51317ce0f533 (diff)
Configure: impose ^X on whole build procedure.
Traditionally Configure passed $ENV{PERL} to Makefile. But this resulted in ambiguilty as Configure script could be executed by interpreter different from one executing remaining scripts. Since we separate compile- and run-time interpreters with HASHBANGPERL variable, there is no reason to segment the build procedure. Reviewed-by: Rich Salz <rsalz@openssl.org>
Diffstat (limited to 'Configure')
-rwxr-xr-xConfigure20
1 files changed, 2 insertions, 18 deletions
diff --git a/Configure b/Configure
index 445f928663..f4a44cb7b4 100755
--- a/Configure
+++ b/Configure
@@ -941,7 +941,7 @@ $config{cross_compile_prefix} = $ENV{'CROSS_COMPILE'}
# Allow overriding the names of some tools. USE WITH CARE
# Note: only Unix cares about HASHBANGPERL... that explains
# the default string.
-$config{perl} = $ENV{'PERL'} || ($^O ne "VMS" ? $^X : "perl");
+$config{perl} = ($^O ne "VMS" ? $^X : "perl");
$config{hashbangperl} =
$ENV{'HASHBANGPERL'} || $ENV{'PERL'} || "/usr/bin/env perl";
$target{cc} = $ENV{'CC'} || $target{cc} || "cc";
@@ -2019,11 +2019,10 @@ EOF
print OUT "1;\n";
close(OUT);
-my $perlvers = &get_perl_version();
print "\n";
print "PROCESSOR =$config{processor}\n" if $config{processor};
print "PERL =$config{perl}\n";
-print "PERLVERSION =$perlvers\n";
+print "PERLVERSION =$Config{version} for $Config{archname}\n";
print "HASHBANGPERL =$config{hashbangperl}\n";
print "CC =$config{cross_compile_prefix}$target{cc}\n";
print "CFLAG =$target{cflags} $config{cflags}\n";
@@ -2384,21 +2383,6 @@ sub usage
exit(1);
}
-# Return the perl version.
-sub get_perl_version
-{
- return "$Config{version} for $Config{archname}" if $config{perl} eq $^X;
- my $l;
- open my $FH, "$config{perl} -v|" || return "??unknown??";
- while ( <$FH> ) {
- chop;
- $l .= $_;
- }
- close $FH;
- $l =~ s/This is (.{1,70}).*/$1/;
- return $l;
-}
-
sub run_dofile
{
my $out = shift;