ssingh
368226261b
Reviewed-on: http://13.234.246.121:3000/Neominds/ossl35vx69/pulls/3 Reviewed-by: Jayesh Babu <jayesh@neominds.in> Co-authored-by: siddhant <siddhant.singh@neominds.in> Co-committed-by: siddhant <siddhant.singh@neominds.in>
23 lines
653 B
Perl
23 lines
653 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 (!$ENV{CONFIGURE_INSIST} && 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;
|