11cb0ef41Sopenharmony_ci#! /usr/bin/env perl 21cb0ef41Sopenharmony_ci 31cb0ef41Sopenharmony_ciuse Config; 41cb0ef41Sopenharmony_ci 51cb0ef41Sopenharmony_ci# Check that the perl implementation file modules generate paths that 61cb0ef41Sopenharmony_ci# we expect for the platform 71cb0ef41Sopenharmony_ciuse File::Spec::Functions qw(:DEFAULT rel2abs); 81cb0ef41Sopenharmony_ci 91cb0ef41Sopenharmony_ciif (!$ENV{CONFIGURE_INSIST} && rel2abs('.') !~ m|\\|) { 101cb0ef41Sopenharmony_ci die <<EOF; 111cb0ef41Sopenharmony_ci 121cb0ef41Sopenharmony_ci****************************************************************************** 131cb0ef41Sopenharmony_ciThis perl implementation doesn't produce Windows like paths (with backward 141cb0ef41Sopenharmony_cislash directory separators). Please use an implementation that matches your 151cb0ef41Sopenharmony_cibuilding platform. 161cb0ef41Sopenharmony_ci 171cb0ef41Sopenharmony_ciThis Perl version: $Config{version} for $Config{archname} 181cb0ef41Sopenharmony_ci****************************************************************************** 191cb0ef41Sopenharmony_ciEOF 201cb0ef41Sopenharmony_ci} 211cb0ef41Sopenharmony_ci 221cb0ef41Sopenharmony_ci1; 23