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