Committed by Greg Sabino Mullane <[email protected]> Version bump to 3.0.0, unless and until we make more changes.
--- META.yml | 6 +++--- Makefile.PL | 2 +- Pg.pm | 4 ++-- README | 13 +------------ lib/Bundle/DBD/Pg.pm | 2 +- t/06bytea.t | 19 ++++++++++++++++--- 6 files changed, 24 insertions(+), 22 deletions(-) diff --git a/META.yml b/META.yml index 3ed21c6..2885b23 100644 --- a/META.yml +++ b/META.yml @@ -1,6 +1,6 @@ --- #YAML:1.0 name : DBD-Pg -version : 2.20.1_6 +version : 3.0.0 abstract : DBI PostgreSQL interface author: - Greg Sabino Mullane <[email protected]> @@ -30,10 +30,10 @@ recommends: provides: DBD::Pg: file : Pg.pm - version : 2.20.1_6 + version : 3.0.0 Bundle::DBD::Pg: file : lib/Bundle/DBD/Pg.pm - version : 2.20.1_6 + version : 3.0.0 keywords: - Postgres diff --git a/Makefile.PL b/Makefile.PL index d06baab..1b2e695 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -5,7 +5,7 @@ use warnings; use 5.008001; ## No version.pm for this one, as the prereqs are not loaded yet. -my $VERSION = '2.20.1_6'; +my $VERSION = '3.0.0'; ## App::Info is stored inside t/lib ## Create a proper path so we can use it below diff --git a/Pg.pm b/Pg.pm index 6d17327..5887bed 100644 --- a/Pg.pm +++ b/Pg.pm @@ -16,7 +16,7 @@ use 5.008001; { package DBD::Pg; - use version; our $VERSION = qv('2.20.1_6'); + use version; our $VERSION = qv('3.0.0'); use DBI (); use DynaLoader (); @@ -1775,7 +1775,7 @@ DBD::Pg - PostgreSQL database driver for the DBI module =head1 VERSION -This documents version 2.20.1_6 of the DBD::Pg module +This documents version 3.0.0 of the DBD::Pg module =head1 DESCRIPTION diff --git a/README b/README index cfe5518..6e0cf8f 100644 --- a/README +++ b/README @@ -2,21 +2,10 @@ DBD::Pg is Copyright (C) 1994-2013, Greg Sabino Mullane DBD::Pg -- the DBI PostgreSQL interface for Perl -=================================================== -WARNING!! - -THIS IS A TEST VERSION (2.20.1_6) AND SHOULD BE USED -FOR TESTING PURPOSES ONLY. PLEASE USE A STABLE -VERSION (no underscore) BY VISITING: - -http://search.cpan.org/dist/DBD-Pg/ -=================================================== - - DESCRIPTION: ------------ -This is version 2.20.1_6 of DBD::Pg, the Perl interface to Postgres using DBI. +This is version 3.0.0 of DBD::Pg, the Perl interface to Postgres using DBI. The web site for this interface, and the latest version, can be found at: http://search.cpan.org/dist/DBD-Pg/ diff --git a/lib/Bundle/DBD/Pg.pm b/lib/Bundle/DBD/Pg.pm index ee62837..19677f4 100644 --- a/lib/Bundle/DBD/Pg.pm +++ b/lib/Bundle/DBD/Pg.pm @@ -4,7 +4,7 @@ package Bundle::DBD::Pg; use strict; use warnings; -$VERSION = '2.20.1_6'; +$VERSION = '3.0.0'; 1; diff --git a/t/06bytea.t b/t/06bytea.t index 44a8cb8..2876c18 100644 --- a/t/06bytea.t +++ b/t/06bytea.t @@ -28,13 +28,12 @@ if ($pgversion >= 80100) { my ($sth, $t); -$sth = $dbh->prepare(q{INSERT INTO dbd_pg_test (id,bytetest,bytearray) VALUES (?,?,'{1,2,3}')}); +$sth = $dbh->prepare(q{INSERT INTO dbd_pg_test (id,bytetest,bytearray,testarray2) VALUES (?,?,'{1,2,3}','{5,6,7}')}); $t='bytea insert test with string containing null and backslashes'; $sth->bind_param(1, undef, { pg_type => PG_INT4 }); $sth->bind_param(2, undef, { pg_type => PG_BYTEA }); -ok ($sth->execute(400, 'aa\\bb\\cc\\\0dd\\' -), $t); +ok ($sth->execute(400, 'aa\\bb\\cc\\\0dd\\'), $t); $t='bytea insert test with string containing a single quote'; ok ($sth->execute(401, '\''), $t); @@ -60,6 +59,20 @@ else { $sth->finish(); +## Test arrays of bytea +my $SQL = 'SELECT testarray2, bytetest, bytearray FROM dbd_pg_test'; +$sth = $dbh->prepare($SQL); +$sth->execute(); +my $info = $sth->fetch; +$sth->finish(); +use Data::Dumper; +use Data::Peek; +warn Dumper $info; +warn DPeek($info->[0][0]); +warn DPeek($info->[1]); +warn DPeek($info->[2][0]); + + cleanup_database($dbh,'test'); $dbh->disconnect(); -- 1.8.4
