[DBD::Pg 2/2] Internal name should be INT8, not LONGINT

Committed by Greg Sabino Mullane <greg-O9fzpki4YnJWk0Htik3J/[email protected]>

Subject: [DBD::Pg 2/2] Internal name should be INT8, not LONGINT

---
 Pg.pm         |  2 +-
 testme.tmp.pl | 27 +++++++++++++++++++++++++++
 2 files changed, 28 insertions(+), 1 deletion(-)

diff --git a/Pg.pm b/Pg.pm
index 1a6b49b..bf50d7e 100644
--- a/Pg.pm
+++ b/Pg.pm
@@ -1373,7 +1373,7 @@ use 5.008001;
              SQL_FLOAT,                                                                    $UN, $UN, $UN ],
 ['float8',   SQL_REAL,          15,   $UN,$UN,   $PS,  1,0,2, 0,0,0,   'REAL',      0,15,
              SQL_REAL,                                                                     $UN, $UN, $UN ],
-['int8',     SQL_BIGINT,        20,   $UN,$UN,   $UN,  1,0,2, 0,0,0,   'LONGINT',   0,0,
+['int8',     SQL_BIGINT,        20,   $UN,$UN,   $UN,  1,0,2, 0,0,0,   'INT8',   0,0,
              SQL_BIGINT,                                                                   $UN, $UN, $UN ],
 ['date',     SQL_DATE,          10,   q{'},q{'}, $UN,  1,0,2, $UN,0,0, 'DATE',      0,0,
              SQL_DATE,                                                                     $UN, $UN, $UN ],
diff --git a/testme.tmp.pl b/testme.tmp.pl
index 1b76eb4..a0a6e2e 100755
--- a/testme.tmp.pl
+++ b/testme.tmp.pl
@@ -41,7 +41,34 @@ sub user_arrays {
 
 print "User arrays!\n";
 
+print Dumper $dbh->type_info(-5);
 
+$dbh->do ("create table xx_test (c_test bigint)");
+my $sth = $dbh->prepare ("select * from xx_test");
+$sth->execute;
+DDumper ($sth->{TYPE}[0], $dbh->type_info ($sth->{TYPE}[0]));
+$dbh->do ("drop table xx_test");
+
+exit;
+
+$dbh->do('drop table if exists domodomo');
+$dbh->do('create domain domo as int[][]');
+$dbh->do('create table domodomo (id serial, foo domo)');
+$SQL = 'INSERT INTO domodomo(foo) VALUES (?)';
+$sth = $dbh->prepare($SQL);
+$sth->execute(q!{{1},{2}}!);
+
+$SQL = 'SELECT foo FROM domodomo';
+my $f = $dbh->prepare($SQL);
+$f->execute();
+my $res = $f->fetchall_arrayref();
+print Dumper $res;
+print $res->[0];
+
+$dbh->do("CREATE TYPE customint AS ENUM('1','2')");
+my $q2 = $dbh->prepare("SELECT '{1,2}'::customint[]");
+$q2->execute();
+print Dumper $q2->fetchrow_array(); # prints "{1,2}", not an array
 
 
 exit;
-- 
1.8.4