Add --gui argument to Build.PL

xs
Alessandro Ranellucci 2013-07-06 02:44:32 +02:00
parent b857d79604
commit f1978ce50a
1 changed files with 12 additions and 0 deletions

View File

@ -28,6 +28,15 @@ my %recommends = qw(
Growl::GNTP 0.15
XML::SAX::ExpatXS 0
);
if ($ARGV[0] eq '--gui') {
%prereqs = (%prereqs, qw(
Wx 0.9901
));
%recommends = (%recommends, qw(
Wx::GLCanvas 0
OpenGL 0
));
}
# removed:
# Wx 0.9901
@ -80,6 +89,9 @@ If it is installed in a non-standard location you can do:
EOF
if !$cpanm;
# make sure our cpanm is updated (old ones don't support the ~ syntax)
system $cpanm, 'App::cpanminus';
my %modules = (%prereqs, %recommends);
foreach my $module (sort keys %modules) {
my $version = $modules{$module};