mirror of
https://github.com/openssl/openssl.git
synced 2024-11-23 10:03:32 +08:00
473664aafd
Different tests may use unexpectedly different versions of perl, depending on whether they hardcode the path to the perl executable or if they resolve the path from the environment. This fixes it so that the same perl is always used. Fix some trailing whitespace and spelling mistakes as well. CLA: trivial Reviewed-by: Tomas Mraz <tomas@openssl.org> Reviewed-by: Paul Dale <pauli@openssl.org> (Merged from https://github.com/openssl/openssl/pull/16362)
23 lines
621 B
Perl
23 lines
621 B
Perl
#! /usr/bin/env perl
|
|
|
|
use Config;
|
|
|
|
# Check that the perl implementation file modules generate paths that
|
|
# we expect for the platform
|
|
use File::Spec::Functions qw(:DEFAULT rel2abs);
|
|
|
|
if (rel2abs('.') !~ m|/|) {
|
|
die <<EOF;
|
|
|
|
******************************************************************************
|
|
This perl implementation doesn't produce Unix like paths (with forward slash
|
|
directory separators). Please use an implementation that matches your
|
|
building platform.
|
|
|
|
This Perl version: $Config{version} for $Config{archname}
|
|
******************************************************************************
|
|
EOF
|
|
}
|
|
|
|
1;
|