1*b0d17251Schristos#! /usr/bin/env perl 2c7da899bSchristos 3c7da899bSchristosuse Config; 4c7da899bSchristos 5c7da899bSchristos# Check that the perl implementation file modules generate paths that 6c7da899bSchristos# we expect for the platform 7c7da899bSchristosuse File::Spec::Functions qw(:DEFAULT rel2abs); 8c7da899bSchristos 9c7da899bSchristosif (rel2abs('.') !~ m|/|) { 10c7da899bSchristos die <<EOF; 11c7da899bSchristos 12c7da899bSchristos****************************************************************************** 13c7da899bSchristosThis perl implementation doesn't produce Unix like paths (with forward slash 14c7da899bSchristosdirectory separators). Please use an implementation that matches your 15c7da899bSchristosbuilding platform. 16c7da899bSchristos 17c7da899bSchristosThis Perl version: $Config{version} for $Config{archname} 18c7da899bSchristos****************************************************************************** 19c7da899bSchristosEOF 20c7da899bSchristos} 21c7da899bSchristos 22c7da899bSchristos1; 23