|
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 $^X, "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
}
} |