use ExtUtils::MakeMaker;
use File::Path;
$/="\n";
chomp($pwd = `pwd`); $pwd = "." if ($pwd eq '');
require "$pwd/Makefile.conf" || die "Can't read Configuration file: $!\n";
if (! -d "$pwd/t/test")
{
eval { mkpath "$pwd/t/test" };
if ($@)
{
print "Couldn't create $pwd/t/test directory for test database: $@\n";
}
}
ExtUtils::MakeMaker::WriteMakefile(%{$o});
package MY;
no warnings;
sub MY::postamble {
require DBI::DBD;
"\n" . DBI::DBD::dbd_postamble(@_);
};
sub MY::dynamic_lib {
my $self = shift;
my $result = $self->SUPER::dynamic_lib(@_);
if (!$::opt->{nocatchstderr} && $result =~ /\$\(LD\)/) {
$result =~ s/(\$\(LD\))/\$\(PERL\) myld \$(LD)/sg;
}
return $result;
};