| Richard Levitte | d192a3a | 2017-03-05 21:51:18 +0100 | [diff] [blame] | 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 Windows like paths (with backward |
| 14 | slash 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; |
