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

Replace Build.PL with a custom script based off cpanm

Browse Source
This commit is contained in:
Alessandro Ranellucci 2013-06-22 16:18:43 +02:00
parent 4774b0e910
commit c88d8a5842
1 changed files with 62 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

101
Build.PL
View File

@ -1,44 +1,67 @@
use Module::Build;
#!/usr/bin/perl
my $build = Module::Build->new(
module_name => 'Slic3r',
dist_abstract => 'G-code generator for 3D printers',
dist_author => 'Alessandro Ranellucci <aar@cpan.org>',
dist_version => '0.1',
license => 'perl',
requires => {
'Boost::Geometry::Utils' => '0.15',
'Encode::Locale' => '0',
'File::Basename' => '0',
'File::Spec' => '0',
'Getopt::Long' => '0',
'Math::Clipper' => '1.22',
'Math::ConvexHull::MonotoneChain' => '0.01',
'Math::Geometry::Voronoi' => '1.3',
'Math::PlanePath' => '53',
'Moo' => '0.091009',
'perl' => '5.10.0',
'Scalar::Util' => '0',
'Storable' => '0',
'Time::HiRes' => '0',
},
build_requires => {
'Test::More' => '0.10',
'IO::Scalar' => '0.10',
},
recommends => {
'Class::XSAccessor' => '0',
'Growl::GNTP' => '0.15',
'XML::SAX::ExpatXS' => '0',
'Wx' => '0.9901',
},
script_files => ['slic3r.pl'],
use strict;
use warnings;
use Config;
use File::Spec;
my %prereqs = qw(
Boost::Geometry::Utils 0.15
Encode::Locale 0
File::Basename 0
File::Spec 0
Getopt::Long 0
Math::Clipper 1.22
Math::ConvexHull::MonotoneChain 0.01
Math::Geometry::Voronoi 1.3
Math::PlanePath 53
Moo 0.091009
Scalar::Util 0
Storable 0
Test::More 0
IO::Scalar 0
Time::HiRes 0
);
my %recommends = qw(
Class::XSAccessor 0
Growl::GNTP 0.15
XML::SAX::ExpatXS 0
Wx 0.9901
);
if (not $ENV{SLIC3R_NO_AUTO})
{
$build->dispatch('installdeps');
$build->dispatch('test', verbose => 0);
my $cpanm;
if (defined $ENV{CPANM} && -x $ENV{CPANM}) {
$cpanm = $ENV{CPANM};
} elsif (-x (my $c = File::Spec->catfile($Config{installscript}, 'cpanm'))) {
$cpanm = $c;
} elsif ($^O = /^(?:darwin|linux)$/ && system(qw(which cpanm)) == 0) {
$cpanm = 'cpanm';
}
die <<'EOF'
cpanm was not found. Please install it before running this script.
There are several ways to install cpanm, try one of these:
apt-get install cpanminus
curl -L http://cpanmin.us | perl - --sudo App::cpanminus
cpan App::cpanminus
If it is installed in a non-standard location you can do:
CPANM=/path/to/cpanm perl Build.PL
EOF
if !$cpanm;
my %modules = (%prereqs, %recommends);
foreach my $module (sort keys %modules) {
my $version = $modules{$module};
system $cpanm, '--sudo', "$module~$version";
}
$build->create_build_script;
if (eval "use App::Prove; 1") {
App::Prove->new->run;
}
__END__