use strict;
use warnings FATAL => 'all';
my %META = (
name => 'local-lib',
license => 'perl_5',
prereqs => {
configure => { requires => {
} },
build => { requires => {
} },
test => { requires => {
'Test::More' => 0,
} },
runtime => { requires => {
'perl' => 5.006,
'ExtUtils::MakeMaker' => '7.00', # version INSTALL_BASE taken as string, not shell
'ExtUtils::Install' => '1.43', # version INSTALL_BASE was added
'Module::Build' => '0.36', # PERL_MB_OPT
'CPAN' => '1.82', # sudo support + CPAN::HandleConfig
} },
develop => {
requires => {
'Module::Build' => '0.36',
'Test::EOL' => 0,
'Test::NoTabs' => 0,
'Test::Pod' => 0,
'Capture::Tiny' => 0,
'Test::More' => 0.81_01,
'Test::CPAN::Changes' => 0,
},
},
},
resources => {
repository => {
url => 'git://github.com/Perl-Toolchain-Gang/local-lib',
web => 'https://github.com/Perl-Toolchain-Gang/local-lib',
type => 'git',
},
x_IRC => 'irc://irc.perl.org/#local-lib',
bugtracker => {
web => 'https://rt.cpan.org/Public/Dist/Display.html?Name=local-lib',
mailto => 'bug-local-lib@rt.cpan.org',
},
license => [ 'http://dev.perl.org/licenses/' ],
},
);
my %MM_ARGS = ();
##############################################################################
# Solaris (and possibly other Unices) have a tar in /usr/bin that, among
# other things, does not understand @LongLink. This can cause
# extraction to look like it succeeded, but it actually failed (because
# the error message for the @LongLink failure scrolled offscreen).
# Therefore, given the fact that GNU tar is the most widespread tar available,
# and it actually supports the feature we want (I'd bet it originated in GNU
# tar, but I digress), we'll look for GNU tar. If we don't find it, and the
# user hasn't pointed us to a suitable tar, we'll bomb and tell them what to
# do.
#
require File::Spec;
unless (exists $ENV{PERL_LL_TAR} ? -x $ENV{PERL_LL_TAR}
: $^O eq 'solaris'
? (grep -x,
map File::Spec->catfile($_, 'gtar'),
File::Spec->path)
: 1) {
die <<'DEATH';
You are using Solaris (or another traditional Unix) that does not provide a sane
tar, capable of dealing with the output of GNU tar. Please either set the
PERL_LL_TAR environment variable to the location of a version of tar that
understands the @LongLink convention or put a binary named gtar somewhere on
your PATH.
DEATH
}
# watch out for fancy dashes. these can wind up in our @ARGV if the user is
# copypasting the bootstrap command from the POD displayed e.g. by perldoc
# on a Mac OS X terminal. since no software recognizes and handles these
# dashes, it's better to die loudly telling the user exactly what happened
# so they don't make the same mistake again rather than being the only
# program in the universe that works with them.
# the fancy dash is U+2212 or \xE2\x88\x92
if(grep { /\xE2\x88\x92/ || /\x{2212}/ } @ARGV) {
die <<'DEATH';
WHOA THERE! It looks like you've got some fancy dashes in your commandline!
These are *not* the traditional -- dashes that software recognizes. You
probably got these by copy-pasting from the perldoc for this module as
rendered by a UTF8-capable formatter. This most typically happens on an OS X
terminal, but can happen elsewhere too. Please try again after replacing the
dashes with normal minus signs.
DEATH
}
my $disable_manpages;
if(my ($x) = grep { /^--no-manpages$/ } @ARGV) {
$disable_manpages = 1;
@ARGV = grep { !/^--no-manpages/ } @ARGV;
}
my $bootstrapping;
if (my ($x) = grep { /^--bootstrap(?:=.*)?$/ } @ARGV) {
@ARGV = grep { !/^--bootstrap(?:=.*)?$/ } @ARGV;
my ($path) = $x =~ /^--bootstrap(?:=(.*))?$/;
{
local @INC = @INC;
unshift(@INC, 'lib');
require local::lib;
}
local::lib->import($path || ());
$bootstrapping = 1;
}
my $requires = $MM_ARGS{PREREQ_PM} = { %{$META{prereqs}{runtime}{requires}} };
if ($ENV{PERL5_CPANM_IS_RUNNING}) {
$requires->{CPAN} = undef;
}
for my $module (grep { $_ ne 'perl' } keys %$requires) {
my $need_v = $requires->{$module} or next;
my $res = system($^X, '-Iinc', '-MCheckVersion', '-', $module, $need_v);
$res >>= 8;
if ($res == 0 || $res == 1) {
$requires->{$module} = undef;
}
}
if ($disable_manpages) {
$ENV{PERL_MM_OPT} = ($ENV{PERL_MM_OPT}||'') . ' INSTALLMAN1DIR=none INSTALLMAN3DIR=none';
$ENV{PERL_MB_OPT} = ($ENV{PERL_MB_OPT}||'') . ' --install_path libdoc="" --install_path bindoc=""';
$MM_ARGS{INSTALLMAN1DIR} = 'none';
$MM_ARGS{INSTALLMAN3DIR} = 'none';
}
if ($bootstrapping) {
my @modules = grep $requires->{$_},
qw(ExtUtils::MakeMaker ExtUtils::Install Module::Build CPAN);
{
no warnings 'once';
package MY;
*init_PERL = sub {
my $self = shift;
$self->SUPER::init_PERL(@_);
$self->{PERL} .= ' "-I$(INSTALLPRIVLIB)"';
$self->{FULLPERL} .= ' "-I$(INSTALLPRIVLIB)"';
};
}
local $ENV{PERL_AUTOINSTALL_PREFER_CPAN} = 1;
local $ENV{PERL_MM_USE_DEFAULT} = 1;
if (@modules || $disable_manpages) {
system($^X, '-Iinc', '-MCPANBootstrapper=init_config');
}
if (@modules) {
system($^X, '-Iinc', '-MCPANBootstrapper=install', '-', $_)
for @modules;
}
if (grep { $_ eq 'CPAN' } @modules ) {
system($^X, '-MCPAN', '-e', 'CPAN::Config->load;CPAN::Config->commit;');
}
if ($disable_manpages) {
system($^X, '-Iinc', '-MCPANBootstrapper=disable_manpages');
}
}
if (!$ENV{PERL5_CPANM_IS_RUNNING}) {
my $status = system $^X, '-Iinc', '-MCPANBootstrapper=check', '-',
$META{prereqs}{runtime}{requires}{CPAN};
exit $status
if $status;
}
## BOILERPLATE ###############################################################
require ExtUtils::MakeMaker;
(do './maint/Makefile.PL.include' or die $@) unless -f 'META.yml';
# have to do this since old EUMM dev releases miss the eval $VERSION line
my $eumm_version = eval $ExtUtils::MakeMaker::VERSION;
my $mymeta = $eumm_version >= 6.57_02;
my $mymeta_broken = $mymeta && $eumm_version < 6.57_07;
($MM_ARGS{NAME} = $META{name}) =~ s/-/::/g;
($MM_ARGS{VERSION_FROM} = "lib/$MM_ARGS{NAME}.pm") =~ s{::}{/}g;
$META{license} = [ $META{license} ]
if $META{license} && !ref $META{license};
$MM_ARGS{LICENSE} = $META{license}[0]
if $META{license} && $eumm_version >= 6.30;
$MM_ARGS{NO_MYMETA} = 1
if $mymeta_broken;
$MM_ARGS{META_ADD} = { 'meta-spec' => { version => 2 }, %META }
unless -f 'META.yml';
for (qw(configure build test runtime)) {
my $key = $_ eq 'runtime' ? 'PREREQ_PM' : uc $_.'_REQUIRES';
my $r = $MM_ARGS{$key} = {
%{$META{prereqs}{$_}{requires} || {}},
%{delete $MM_ARGS{$key} || {}},
};
defined $r->{$_} or delete $r->{$_} for keys %$r;
}
$MM_ARGS{MIN_PERL_VERSION} = delete $MM_ARGS{PREREQ_PM}{perl} || 0;
delete $MM_ARGS{MIN_PERL_VERSION}
if $eumm_version < 6.47_01;
$MM_ARGS{BUILD_REQUIRES} = {%{$MM_ARGS{BUILD_REQUIRES}}, %{delete $MM_ARGS{TEST_REQUIRES}}}
if $eumm_version < 6.63_03;
$MM_ARGS{PREREQ_PM} = {%{$MM_ARGS{PREREQ_PM}}, %{delete $MM_ARGS{BUILD_REQUIRES}}}
if $eumm_version < 6.55_01;
delete $MM_ARGS{CONFIGURE_REQUIRES}
if $eumm_version < 6.51_03;
ExtUtils::MakeMaker::WriteMakefile(%MM_ARGS);
## END BOILERPLATE ###########################################################