|
82
|
0 |
0 |
unless eval {
do {
my $dir = cwd();
die "Could not change to ${dist_dir}: $!\n" unless chdir $dist_dir;
my $guesser = 'Distribution::Guess::BuildSystem'->new('dist_dir', '.');
if ($guesser->uses_module_build) {
$self->verbose('Detected Module::Build');
system $^X, 'Build.PL';
system './Build', 'manifest';
}
elsif ($guesser->uses_makemaker or $guesser->uses_module_install) {
$self->verbose('Detected ExtUtils::Makemaker or Module::Install');
system $^X, 'Makefile.PL';
system $make, 'manifest';
} ;
die "Could not change back to ${dir}: $!\n" unless chdir $dir
}
} |