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

[turnstep]

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