54 |
|
|
55 |
my $dbh = DBI->connect( $dsn, $database->{user}, $database->{passwd} ) or die "$DBI::errstr\n"; |
my $dbh = DBI->connect( $dsn, $database->{user}, $database->{passwd} ) or die "$DBI::errstr\n"; |
56 |
|
|
57 |
|
# force database to send us back UTF-8 no metter what it's encoding |
58 |
|
$dbh->do("set client_encoding='utf-8'"); |
59 |
|
$dbh->{pg_enable_utf8} = 1; |
60 |
|
|
61 |
$instance_dbh->{$instance} = $dbh; |
$instance_dbh->{$instance} = $dbh; |
62 |
|
|
63 |
warn "## instance_dbh = ",dump( $instance_dbh ) if $debug; |
warn "## instance_dbh = ",dump( $instance_dbh ) if $debug; |