1my @files_to_check = qw(AutoInstall.pm Can.pm WriteAll.pm Win32.pm); 2 3END { 4 # shit already hit the fan 5 return if $?; 6 7 for my $f (@files_to_check) { 8 if (! -f "inc/Module/Install/$f") { 9 warn "Your inc/ does not contain a critical Module::Install component - \$_. Something went horrifically wrong... please ask the cabal for help\n"; 10 unlink 'Makefile'; 11 exit 1; 12 } 13 } 14} 15 16my $oneliner = <<"EOO"; 17-f qq(\$(DISTVNAME)/inc/Module/Install/\$_) or die "\\nYour \$(DISTVNAME)/inc/ does not contain a critical Module::Install component: \$_. Something went horrifically wrong... please ask the cabal for help\\n\\n" for (qw(@files_to_check)) 18EOO 19 20postamble <<"EOP"; 21create_distdir : sanity_check_inc 22 23sanity_check_inc : 24\t\$(NOECHO) @{[ $mm_proto->oneliner($oneliner) ]} 25 26EOP 27 28# keep the Makefile.PL eval happy 291; 30