Fix building on perls with no . in @INC

[dbsrgits/DBIx-Class.git] / maint / Makefile.PL.inc / 91_inc_sanity_check.pl

my @files_to_check = qw(AutoInstall.pm Can.pm WriteAll.pm Win32.pm);

END {
  # shit already hit the fan
  return if $?;

  for my $f (@files_to_check) {
    if (! -f "inc/Module/Install/$f") {
      warn "Your inc/ does not contain a critical Module::Install component - \$_. Something went horrifically wrong... please ask the cabal for help\n";
      unlink 'Makefile';
      exit 1;
    }
  }
}

my $oneliner = <<"EOO";
-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))
EOO

postamble <<"EOP";
create_distdir : sanity_check_inc

sanity_check_inc :
\t\$(NOECHO) @{[ $mm_proto->oneliner($oneliner) ]}

EOP

# keep the Makefile.PL eval happy
1;