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;