}
}
-# Bail out on parallel testing
-if (
- ($ENV{HARNESS_OPTIONS}||'') =~ / (?: ^ | \: ) j(\d+) /x
- and
- $1 > 1
-) { die <<EOP }
-
-******************************************************************************
-******************************************************************************
-*** ***
-*** PARALLEL TESTING DETECTED ( \$ENV{HARNESS_OPTIONS} = 'j$1' ) ***
-*** ***
-*** DBIC tests WILL FAIL. It is harder to make them parallel-friendly than ***
-*** it should be (though work is underway). In the meantime you will have ***
-*** to adjust your environment and re-run the installation. Sorry! ***
-*** ***
-******************************************************************************
-******************************************************************************
-
-EOP
-
# this is so we can order requires alphabetically
# copies are needed for potential author requires injection
my $reqs = {
# string-eval, not do(), because we need to provide the
# $reqs and $*_requires lexicals to the included file
# (some includes *do* modify $reqs above)
- for (sort glob ( File::Spec->catfile('maint', 'Makefile.PL.inc', '*') ) ) {
- eval scalar do { local (@ARGV, $/) = $_; <> }
- or die ($@ || $!);
+ for my $inc (sort glob ( File::Spec->catfile('maint', 'Makefile.PL.inc', '*') ) ) {
+ my $src = do { local (@ARGV, $/) = $inc; <> } or die $!;
+ eval "use warnings; use strict; $src" or die sprintf
+ "Failed execution of %s: %s\n",
+ $inc,
+ ($@ || $! || 'Unknown error'),
+ ;
}
}
else {