3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Some improvements to Build.PL

Browse Source
This commit is contained in:
Alessandro Ranellucci 2013-11-10 14:31:51 +01:00
parent 6387d196fa
commit 720ef322d7
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Build.PL
View File

@ -19,6 +19,7 @@ my %prereqs = qw(
Moo 1.003001 Moo 1.003001
Scalar::Util 0 Scalar::Util 0
Storable 0 Storable 0
Test::Harness 0
Test::More 0 Test::More 0
IO::Scalar 0 IO::Scalar 0
Time::HiRes 0 Time::HiRes 0
@ -40,12 +41,12 @@ if ($gui) {
); );
} }
my $missing_prereqs = 0; my @missing_prereqs = ();
if ($ENV{SLIC3R_NO_AUTO}) { if ($ENV{SLIC3R_NO_AUTO}) {
foreach my $module (sort keys %prereqs) { foreach my $module (sort keys %prereqs) {
my $version = $prereqs{$module}; my $version = $prereqs{$module};
next if eval "use $module $version; 1"; next if eval "use $module $version; 1";
$missing_prereqs = 1 if exists $prereqs{$module}; push @missing_prereqs = $module if exists $prereqs{$module};
print "Missing prerequisite $module $version\n"; print "Missing prerequisite $module $version\n";
} }
foreach my $module (sort keys %recommends) { foreach my $module (sort keys %recommends) {
@ -102,7 +103,7 @@ EOF
my $res = system $cpanm, "$module~$version"; my $res = system $cpanm, "$module~$version";
if ($res != 0) { if ($res != 0) {
if (exists $prereqs{$module}) { if (exists $prereqs{$module}) {
$missing_prereqs = 1; push @missing_prereqs, $module;
} else { } else {
printf "Don't worry, this module is optional.\n"; printf "Don't worry, this module is optional.\n";
} }
@ -129,15 +130,15 @@ EOF
} }
} }
if ($missing_prereqs) { if (@missing_prereqs) {
printf "The following prerequisites failed to install: %s\n", join(', ', @missing_prereqs);
exit 1; exit 1;
} else { } elsif (!$gui) {
my $res = 0; my $res = App::Prove->new->run ? 0 : 1;
if (eval "use App::Prove; 1") { if ($res == 0) {
$res = App::Prove->new->run ? 0 : 1;
}
if (!$gui) {
print "If you also want to use the GUI you can now run `perl Build.PL --gui` to install the required modules.\n"; print "If you also want to use the GUI you can now run `perl Build.PL --gui` to install the required modules.\n";
} else {
print "Some tests failed. Please report the failure to the author!\n";
} }
exit $res; exit $res;
} }