[svn:DBD-Pg] r12029 - in DBD-Pg/trunk: . t

Author: turnstep
Date: Mon Nov  3 05:31:27 2008
New Revision: 12029

Modified:
   DBD-Pg/trunk/Changes
   DBD-Pg/trunk/t/99_perlcritic.t
   DBD-Pg/trunk/t/dbdpg_test_setup.pl

Log:
Force 'C' so tests pass when running in non-English environments.
CPAN bug #40604


Modified: DBD-Pg/trunk/Changes
==============================================================================
--- DBD-Pg/trunk/Changes	(original)
+++ DBD-Pg/trunk/Changes	Mon Nov  3 05:31:27 2008
@@ -1,5 +1,9 @@
 ('GSM' is Greg Sabino Mullane, [email protected])
 
+2.11.3 Released November 3, 2008
+
+	- Force LC_MESSAGES to 'C' inside tests (CPAN bug #40604)
+	- Minor compiler tweaks.
 	- Fix small POD error (CPAN bug #40209)
 	- Tweak Perl::Critic policy list (CPAN bug #40130)
 

Modified: DBD-Pg/trunk/t/99_perlcritic.t
==============================================================================
--- DBD-Pg/trunk/t/99_perlcritic.t	(original)
+++ DBD-Pg/trunk/t/99_perlcritic.t	Mon Nov  3 05:31:27 2008
@@ -23,6 +23,7 @@
 	plan skip_all => 'Perl::Critic must be version 0.23 or higher';
 }
 else {
+	$ENV{LANG} = 'C';
 	opendir my $dir, 't' or die qq{Could not open directory 't': $!\n};
 	@testfiles = map { "t/$_" } grep { /^.+\.(t|pl)$/ } readdir $dir;
 	closedir $dir or die qq{Could not closedir "$dir": $!\n};

Modified: DBD-Pg/trunk/t/dbdpg_test_setup.pl
==============================================================================
--- DBD-Pg/trunk/t/dbdpg_test_setup.pl	(original)
+++ DBD-Pg/trunk/t/dbdpg_test_setup.pl	Mon Nov  3 05:31:27 2008
@@ -497,6 +497,8 @@
 		return $helpconnect, '', $dbh;
 	}
 
+	$dbh->do(q{SET LC_MESSAGES = 'C'});
+
 	if ($arg->{nosetup}) {
 		return $helpconnect, '', $dbh unless schema_exists($dbh, $S);
 		$dbh->do("SET search_path TO $S");