github-repos/make
1
0
Fork 0
mirror of https://github.com/mirror/make.git synced 2025-03-14 03:40:32 +08:00
Code Issues Packages Projects Releases Wiki Activity

* tests/test_driver.pl: Compute full path to Perl interpreter

Browse Source
This commit is contained in:
Paul Smith 2020-01-03 01:53:47 -05:00
parent 53b9770b40
commit 7449abfe1b
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
tests/test_driver.pl
View File

@ -30,7 +30,9 @@
# $Id$
use Config;
use Cwd;
use File::Spec;
# The number of test categories we've run
$categories_run = 0;
@ -53,8 +55,32 @@ $test_passed = 1;
$test_timeout = 5;
$test_timeout = 10 if $^O eq 'VMS';
# Path to Perl--make sure it uses forward-slashes
# Path to Perl
$perl_name = $^X;
if ($^O ne 'VMS') {
$perl_name .= $Config{_exe} unless $perl_name =~ m/$Config{_exe}$/i;
}
# If it's a simple name, look it up on PATH
{
my ($v,$d,$f) = File::Spec->splitpath($perl_name);
if (!$d) {
my $perl = undef;
foreach my $p (File::Spec->path()) {
my $f = File::Spec->catfile($p, $f);
if (-e $f) {
$perl = $f;
last;
}
}
if ($perl) {
$perl_name = $perl;
} else {
print "Cannot locate Perl interpreter $perl_name\n";
}
}
}
# Make sure it uses forward-slashes even on Windows, else it won't work
# in recipes
$perl_name =~ tr,\\,/,;
# %makeENV is the cleaned-out environment.