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 (rel2abs('.') !~ m|/|) { 10 die <<EOF; 11 12****************************************************************************** 13This perl implementation doesn't produce Unix like paths (with forward slash 14directory 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
