23 lines
617 B
Perl
23 lines
617 B
Perl
|
#! /usr/bin/perl
|
||
|
|
|
||
|
|
use Config;
|
||
|
|
|
||
|
|
# Check that the perl implementation file modules generate paths that
|
||
|
|
# we expect for the platform
|
||
|
|
use File::Spec::Functions qw(:DEFAULT rel2abs);
|
||
|
|
|
||
|
|
if (rel2abs('.') !~ m|/|) {
|
||
|
|
die <<EOF;
|
||
|
|
|
||
|
|
******************************************************************************
|
||
|
|
This perl implementation doesn't produce Unix like paths (with forward slash
|
||
|
|
directory separators). Please use an implementation that matches your
|
||
|
|
building platform.
|
||
|
|
|
||
|
|
This Perl version: $Config{version} for $Config{archname}
|
||
|
|
******************************************************************************
|
||
|
|
EOF
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|