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

Author: turnstep
Date: Thu Dec 23 08:30:50 2010
New Revision: 14602

Modified:
   DBD-Pg/trunk/Pg.pm
   DBD-Pg/trunk/t/06bytea.t

Log:
Minor testing tweaks.


Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm	(original)
+++ DBD-Pg/trunk/Pg.pm	Thu Dec 23 08:30:50 2010
@@ -1244,8 +1244,7 @@
 			# NOTNULL inverts the sense of NULLABLE
 			$row->{NOTNULL} = ($row->{NOTNULL} ? 0 : 1);
 
-			my @pri_keys = ();
-			@pri_keys = $dbh->primary_key( undef, undef, $table );
+			my @pri_keys = $dbh->primary_key( undef, undef, $table );
 			$row->{PRIMARY_KEY} = scalar(grep { /^$row->{NAME}$/i } @pri_keys) ? 1 : 0;
 		}
 
@@ -1309,7 +1308,7 @@
 		my $GIG = 1073741824;
 		my $PS = 'precision/scale';
 		my $LEN = 'length';
-		my $UN = undef;
+		my $UN;
 		my $ti =
 			[
 			 $names,

Modified: DBD-Pg/trunk/t/06bytea.t
==============================================================================
--- DBD-Pg/trunk/t/06bytea.t	(original)
+++ DBD-Pg/trunk/t/06bytea.t	Thu Dec 23 08:30:50 2010
@@ -82,7 +82,7 @@
     $t.=" ($output output)" if $output;
     $sth->execute(403);
     ($binary_in) = $sth->fetchrow_array();
-    cmp_ok $binary_in, 'eq', $binary_out, $t;
+    cmp_ok ($binary_in, 'eq', $binary_out, $t);
     $sth->execute(404);
     ($binary_in) = $sth->fetchrow_array();
     ok ($binary_in eq $binary_out, $t);