Author: turnstep
Date: Fri Oct 1 20:55:13 2010
New Revision: 14455
Modified:
DBD-Pg/trunk/Pg.pm
Log:
Return bare instead of undef, per CPAN bug #61574
Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm (original)
+++ DBD-Pg/trunk/Pg.pm Fri Oct 1 20:55:13 2010
@@ -184,7 +184,7 @@
$connstring .= ";$attr";
}
- my $dbh = DBD::Pg::dr::connect($drh, $connstring) or return
undef;
+ my $dbh = DBD::Pg::dr::connect($drh, $connstring) or return;
$dbh->{AutoCommit}=1;
my $SQL = 'SELECT pg_catalog.quote_ident(datname) FROM
pg_catalog.pg_database ORDER BY 1';
my $sth = $dbh->prepare($SQL);