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