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