Commit | Line | Data |
38a097c2 |
1 | my @files_to_check = qw(AutoInstall.pm Can.pm WriteAll.pm Win32.pm); |
2 | |
3 | END { |
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 | |
16 | my $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)) |
18 | EOO |
19 | |
20 | postamble <<"EOP"; |
21 | create_distdir : sanity_check_inc |
22 | |
23 | sanity_check_inc : |
24 | \t\$(NOECHO) @{[ $mm_proto->oneliner($oneliner) ]} |
25 | |
26 | EOP |
27 | |
28 | # keep the Makefile.PL eval happy |
29 | 1; |