1e1051a39Sopenharmony_ci#! /usr/bin/env perl 2e1051a39Sopenharmony_ci 3e1051a39Sopenharmony_ciuse Config; 4e1051a39Sopenharmony_ci 5e1051a39Sopenharmony_ci# Check that the perl implementation file modules generate paths that 6e1051a39Sopenharmony_ci# we expect for the platform 7e1051a39Sopenharmony_ciuse File::Spec::Functions qw(:DEFAULT rel2abs); 8e1051a39Sopenharmony_ci 9e1051a39Sopenharmony_ciif (rel2abs('.') !~ m|/|) { 10e1051a39Sopenharmony_ci die <<EOF; 11e1051a39Sopenharmony_ci 12e1051a39Sopenharmony_ci****************************************************************************** 13e1051a39Sopenharmony_ciThis perl implementation doesn't produce Unix like paths (with forward slash 14e1051a39Sopenharmony_cidirectory separators). Please use an implementation that matches your 15e1051a39Sopenharmony_cibuilding platform. 16e1051a39Sopenharmony_ci 17e1051a39Sopenharmony_ciThis Perl version: $Config{version} for $Config{archname} 18e1051a39Sopenharmony_ci****************************************************************************** 19e1051a39Sopenharmony_ciEOF 20e1051a39Sopenharmony_ci} 21e1051a39Sopenharmony_ci 22e1051a39Sopenharmony_ci1; 23