unless
(
eval
"use Module::Build::Compat 0.02; 1"
) {
print
"This module requires Module::Build to install itself.\n"
;
my
$yn
= ExtUtils::MakeMaker::prompt
(
' Install Module::Build now from CPAN?'
,
'y'
);
unless
(
$yn
=~ /^y/i) {
die
" *** Cannot install without Module::Build. Exiting ...\n"
;
}
my
$cwd
= Cwd::cwd();
my
$makefile
= File::Spec->rel2abs($0);
CPAN::Shell->install(
'Module::Build::Compat'
)
or
die
" *** Cannot install without Module::Build. Exiting ...\n"
;
chdir
$cwd
or
die
"Cannot chdir() back to $cwd: $!"
;
}
eval
"use Module::Build::Compat 0.02; 1"
or
die
$@;
Module::Build::Compat->run_build_pl(
args
=> \
@ARGV
);
Module::Build::Compat->write_makefile(
build_class
=>
'Module::Build'
);