1*e0c4386eSCy Schubert#! /usr/bin/env perl
2*e0c4386eSCy Schubert
3*e0c4386eSCy Schubertuse Config;
4*e0c4386eSCy Schubert
5*e0c4386eSCy Schubert# Check that the perl implementation file modules generate paths that
6*e0c4386eSCy Schubert# we expect for the platform
7*e0c4386eSCy Schubertuse File::Spec::Functions qw(:DEFAULT rel2abs);
8*e0c4386eSCy Schubert
9*e0c4386eSCy Schubertif (!$ENV{CONFIGURE_INSIST} && rel2abs('.') !~ m|\\|) {
10*e0c4386eSCy Schubert    die <<EOF;
11*e0c4386eSCy Schubert
12*e0c4386eSCy Schubert******************************************************************************
13*e0c4386eSCy SchubertThis perl implementation doesn't produce Windows like paths (with backward
14*e0c4386eSCy Schubertslash directory separators).  Please use an implementation that matches your
15*e0c4386eSCy Schubertbuilding platform.
16*e0c4386eSCy Schubert
17*e0c4386eSCy SchubertThis Perl version: $Config{version} for $Config{archname}
18*e0c4386eSCy Schubert******************************************************************************
19*e0c4386eSCy SchubertEOF
20*e0c4386eSCy Schubert}
21*e0c4386eSCy Schubert
22*e0c4386eSCy Schubert1;
23