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