Configurations/unix-checker.pm

   1 #! /usr/bin/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;