mirror of
https://github.com/openssl/openssl.git
synced 2024-11-27 05:21:51 +08:00
d192a3aaeb
For each platform, we may need to perform some basic checks to see that available tools perform as we expect them. For the moment, the added checkers test that Perl gives the expected path format. This should help MingW users to see if they run an appropriate Perl implementation, for example. Reviewed-by: Andy Polyakov <appro@openssl.org> (Merged from https://github.com/openssl/openssl/pull/2851)
23 lines
622 B
Perl
23 lines
622 B
Perl
#! /usr/bin/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 Windows like paths (with backward
|
|
slash directory separators). Please use an implementation that matches your
|
|
building platform.
|
|
|
|
This Perl version: $Config{version} for $Config{archname}
|
|
******************************************************************************
|
|
EOF
|
|
}
|
|
|
|
1;
|