[DBD::Pg 2/4] Minor tweaks.

[dbdpg-commits]

Committed by Greg Sabino Mullane <g...@endpoint.com>

Subject: [DBD::Pg 2/4] Minor tweaks.

---
 t/04misc.t |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/t/04misc.t b/t/04misc.t
index 7f6eadc..a90252f 100644
--- a/t/04misc.t
+++ b/t/04misc.t
@@ -359,7 +359,7 @@ is ($@, q{}, $t);
 
 ## Check for problems in pg_st_split_statement by having it parse long strings
 my $problem;
-diag "Checking pg_st_split_statement. This may take a while...";
+diag 'Checking pg_st_split_statement. This may take a while...';
 for my $length (0..16384) {
     my $sql = sprintf 'SELECT %*d', $length + 3, $length;
     my $cur_len = $dbh->selectrow_array($sql);
@@ -369,10 +369,10 @@ for my $length (0..16384) {
 }
 
 if (defined $problem) {
-       fail "pg_st_split_statment failed: $problem";
+       fail ("pg_st_split_statment failed: $problem");
 }
 else {
-       pass "pg_st_split_statement gave no problems with various lengths";
+       pass ('pg_st_split_statement gave no problems with various lengths');
 }
 
 ## Check for problems with insane number of placeholders
@@ -387,6 +387,5 @@ for my $ph (1..13) {
        is $count, 1, $t;
 }
 
-
 cleanup_database($dbh,'test');
 $dbh->disconnect();
-- 
1.7.1