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

[turnstep]

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