Makefile.PL.embedded

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;
};