diff options
author | Andy Polyakov <appro@openssl.org> | 2016-09-09 23:45:57 +0200 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2016-09-13 13:22:28 +0200 |
commit | 758baa3dc250f12b92b1bebe86ad114f25763c04 (patch) | |
tree | 6d0ead8b535a791960fef6c6cf7a87bf704a4928 /Configure | |
parent | Abort on unrecognised warning alerts (diff) | |
download | openssl-758baa3dc250f12b92b1bebe86ad114f25763c04.tar.xz openssl-758baa3dc250f12b92b1bebe86ad114f25763c04.zip |
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-x | Configure | 20 |
1 files changed, 2 insertions, 18 deletions
@@ -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; |