use strict; use ExtUtils::MakeMaker; die "This Makefile.PL of CPAN::Test::Dummy::Perl5::Make::Failearly demonstrates what happens when a Makefile.PL dies. This can be avoided by touching a file 'SURVIVE' in the current directory. Goodbye. " unless -e "SURVIVE"; use File::Spec; sub _f ($) {File::Spec->catfile(split /\//, shift);} WriteMakefile( NAME => 'CPAN::Test::Dummy::Perl5::Make::Failearly', VERSION_FROM => _f('./lib/CPAN/Test/Dummy/Perl5/Make/Failearly.pm'), ($ExtUtils::MakeMaker::VERSION >= 6.31 ? (LICENSE => "perl") : (), ), ABSTRACT => 'CPAN Test Dummy for CPAN.pm', PL_FILES => {}, 'dist' => { DIST_DEFAULT => 'Makefile verify-MakeMaker-6.31 verify-no-subdir all tardist', }, ); sub MY::postamble { return q{ verify-MakeMaker-6.31: @$(PERL) -MExtUtils::MakeMaker -e 'my $$v = eval $$ExtUtils::MakeMaker::VERSION; die "Your MM is old, do not use it for a distro" unless $$v >= 6.31' verify-no-subdir: @$(PERL) -e 'my$$s=join",",grep{!/^(lib|blib|t)\z/&&-d($$_)}glob"*";die"unexpected dir:$$s"if$$s' } }