[thirdparty/openssl.git] / Configurations / unix-checker.pm

#! /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 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;
Commit	Line	Data
d192a3aa RL	1	#! /usr/bin/perl
	2
	3	use Config;
	4
	5	# Check that the perl implementation file modules generate paths that
	6	# we expect for the platform
	7	use File::Spec::Functions qw(:DEFAULT rel2abs);
	8
	9	if (rel2abs('.') !~ m\|/\|) {
	10	die <<EOF;
	11
	12	******************************************************************************
	13	This perl implementation doesn't produce Unix like paths (with forward slash
	14	directory separators). Please use an implementation that matches your
	15	building platform.
	16
	17	This Perl version: $Config{version} for $Config{archname}
	18	******************************************************************************
	19	EOF
	20	}
	21
	22	1;