12345678910111213141516171819202122 |
- #! /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 (!$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;
|