#! /usr/bin/perluseConfig;# Check that the perl implementation file modules generate paths that# we expect for the platformuseFile::Spec::Functionsqw(:DEFAULT rel2abs);if(rel2abs('.')!~m|/|){die<<EOF;******************************************************************************This perl implementation doesn't produce Unix like paths (with forward slashdirectory separators). Please use an implementation that matches yourbuilding platform.This Perl version: $Config{version} for $Config{archname}******************************************************************************EOF}1;