[svn:DBD-Pg] r14455 - DBD-Pg/trunk

[turnstep]

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