}
}
-$SIG{CHLD} = sub {};
-
{
package DebbugsTest::HTTPServer;
use base qw(HTTP::Server::Simple::CGI HTTP::Server::Simple::CGI::Environment);
File::Spec->rel2abs(dirname(__FILE__).'/../..').
'/bin/debbugs-installsql';
# create the debversion extension
- print STDERR $pgsql->dsn;
- print STDERR "\n";
my $dbh = DBI->connect($pgsql->dsn);
$dbh->do(<<END) or die "Unable to create extension";
CREATE EXTENSION IF NOT EXISTS debversion;