Have configdata.pm display information on perl
Specifically, the specific perl that was used to run Configure Reviewed-by: Rich Salz <rsalz@openssl.org> (Merged from https://github.com/openssl/openssl/pull/5247)
This commit is contained in:
parent
60595292ae
commit
d5fa7035cb
1 changed files with 9 additions and 2 deletions
11
Configure
11
Configure
|
@ -278,6 +278,11 @@ if (defined env($local_config_envname)) {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# Save away perl command information
|
||||||
|
$config{perl_cmd} = $^X;
|
||||||
|
$config{perl_version} = $Config{version};
|
||||||
|
$config{perl_archname} = $Config{archname};
|
||||||
|
|
||||||
$config{prefix}="";
|
$config{prefix}="";
|
||||||
$config{openssldir}="";
|
$config{openssldir}="";
|
||||||
$config{processor}="";
|
$config{processor}="";
|
||||||
|
@ -2373,12 +2378,14 @@ _____
|
||||||
-verbose => 2);
|
-verbose => 2);
|
||||||
}
|
}
|
||||||
if ($dump || $cmdline) {
|
if ($dump || $cmdline) {
|
||||||
print "\n(with current working directory = $here)";
|
print "\nCommand line (with current working directory = $here):\n\n";
|
||||||
print "\nCommand line:\n\n";
|
|
||||||
print ' ',join(' ',
|
print ' ',join(' ',
|
||||||
$config{perl},
|
$config{perl},
|
||||||
catfile($config{sourcedir}, 'Configure'),
|
catfile($config{sourcedir}, 'Configure'),
|
||||||
@{$config{perlargv}}), "\n";
|
@{$config{perlargv}}), "\n";
|
||||||
|
print "\nPerl information:\n\n";
|
||||||
|
print ' ',$config{perl_cmd},"\n";
|
||||||
|
print ' ',$config{perl_version},' for ',$config{perl_archname},"\n";
|
||||||
}
|
}
|
||||||
if ($dump || $options) {
|
if ($dump || $options) {
|
||||||
my $longest = 0;
|
my $longest = 0;
|
||||||
|
|
Loading…
Reference in a new issue