Author: turnstep
Date: Sat Feb 16 13:12:16 2008
New Revision: 10744

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

Log:
Minor tweaks.


Modified: DBD-Pg/trunk/t/00basic.t
==============================================================================
--- DBD-Pg/trunk/t/00basic.t    (original)
+++ DBD-Pg/trunk/t/00basic.t    Sat Feb 16 13:12:16 2008
@@ -26,6 +26,6 @@
 
        my $t=q{Version comparison does not throw a warning};
 
-       Test::Warn::warnings_are (sub {$DBD::Pg::VERSION <= "1.49"}, [], $t );
+       Test::Warn::warnings_are (sub {$DBD::Pg::VERSION <= '1.49'}, [], $t );
 }
 

Modified: DBD-Pg/trunk/t/01connect.t
==============================================================================
--- DBD-Pg/trunk/t/01connect.t  (original)
+++ DBD-Pg/trunk/t/01connect.t  Sat Feb 16 13:12:16 2008
@@ -127,7 +127,7 @@
        my $extra = '';
        for (sort qw/HOST HOSTADDR PORT DATABASE USER PASSWORD PASSFILE OPTIONS 
REALM
                  REQUIRESSL KRBSRVNAME CONNECT_TIMEOUT SERVICE SSLMODE 
SYSCONFDIR
-                                CLIENTENCODING/) {
+                 CLIENTENCODING/) {
                my $name = "PG$_";
                if (exists $ENV{$name} and defined $ENV{$name}) {
                        $extra .= sprintf "\n%-21s $ENV{$name}", $name;

Reply via email to