[svn:DBD-Pg] r11574 - DBD-Pg/trunk/t

Author: turnstep
Date: Tue Jul 22 21:05:28 2008
New Revision: 11574

Modified:
   DBD-Pg/trunk/t/01connect.t

Log:
No idea why this failure is shoing up, but we don't need to see the whole message.


Modified: DBD-Pg/trunk/t/01connect.t
==============================================================================
--- DBD-Pg/trunk/t/01connect.t	(original)
+++ DBD-Pg/trunk/t/01connect.t	Tue Jul 22 21:05:28 2008
@@ -79,6 +79,7 @@
 		$t=qq{Connect using string '$opt' works};
 		$dbh and $dbh->disconnect();
 		(undef,$err,$dbh) = connect_database({dbreplace => $opt});
+		$err =~ s/(Previous failure).*/$1/;
 		is ($err, '', $t);
 	}