2
0

windows-checker.pm 649 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 (!$ENV{CONFIGURE_INSIST} && rel2abs('.') !~ m|\\|) {
  7. die <<EOF;
  8. ******************************************************************************
  9. This perl implementation doesn't produce Windows like paths (with backward
  10. slash 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;