2
0

unix-checker.pm 617 B

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