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