/usr/local/CPAN/IO-BLOB-Pg/Makefile.PL

require 5.005_03;  # need self-tie patch

use ExtUtils::MakeMaker;

$My{dbname} = "template1";	# Use a hash so perl doesn't complain about
$My{user}   = "";		# seeing the var only once.
$My{pass}   = "";

require "./db-info"
  if -r "./db-info";

print q{


The tests in this module need to connect to a Postgres
database.  You will need to provide a username, password, and the
name of the database.  Alternatively, the tests may be skipped.
};

$skip = ExtUtils::MakeMaker::prompt("Skip Tests?", "no");
if($skip =~ /^y/i) {
  unlink './db-info'
    if -f "./db-info";
} else {
  if(open D, ">db-info") {
    $My{dbname} = ExtUtils::MakeMaker::prompt("Database Name?", $My{dbname});
    $My{user}   = ExtUtils::MakeMaker::prompt("Database username? (type 'none' for no username)", $My{user});
    $My{pass}   = ExtUtils::MakeMaker::prompt("Database password? (type 'none' for no password)", $My{pass});

    $My{user} = "" if $My{user} eq "none";
    $My{pass} = "" if $My{pass} eq "none";
    print D qq{
\$My{dbname} = "$My{dbname}";
\$My{user}   = "$My{user}";
\$My{pass}   = "$My{pass}";
1;
};
    close D;
  } elsif(-r "db-info") {
    warn "Couldn't open db-info for writing -- using values in file.\n"
  } else {
    warn "Couldn't open db-info -- won't perform tests!\n";
  }
}

WriteMakefile(
    NAME	 => 'IO::BLOB::Pg',
    VERSION_FROM => 'lib/IO/BLOB/Pg.pm',
    'PREREQ_PM'  => {DBD::Pg => 0,
		     Test::More => 0,
		     DBI     => 0},
    dist         => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);