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

Author: turnstep
Date: Sat Jun 14 07:56:18 2008
New Revision: 11419

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

Log:
Cleaner error message: we don't need all the other verbiage for a failed semget call.


Modified: DBD-Pg/trunk/t/01connect.t
==============================================================================
--- DBD-Pg/trunk/t/01connect.t	(original)
+++ DBD-Pg/trunk/t/01connect.t	Sat Jun 14 07:56:18 2008
@@ -142,6 +142,9 @@
 	if (defined $connerror and length $connerror) {
 		$connerror =~ s/.+?failed: //;
 		$connerror =~ s{\n at t/dbdpg.*}{}m;
+		if ($connerror =~ /create semaphores/) {
+			$connerror =~ s/.*(FATAL.*?)HINT.*/$1/m;
+		}
 		$extra .= "\nError was: $connerror";
 	}