Hello community, here is the log from the commit of package perl-DBD-Pg for openSUSE:Factory checked in at 2015-12-09 19:54:16 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-DBD-Pg (Old) and /work/SRC/openSUSE:Factory/.perl-DBD-Pg.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-DBD-Pg" Changes: -------- --- /work/SRC/openSUSE:Factory/perl-DBD-Pg/perl-DBD-Pg.changes 2015-04-02 16:04:27.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-DBD-Pg.new/perl-DBD-Pg.changes 2015-12-09 22:27:13.000000000 +0100 @@ -1,0 +2,13 @@ +Tue Dec 8 15:13:42 UTC 2015 - [email protected] + +- update to version 3.5.3 + changes with 3.5.3: + - Minor fix in the test file t/03dbmethod.t + + changes with 3.5.2: + - Fix enum value ordering on Postgres servers 9.1 and greater + - Return bigint values as plain integer values when they fit + - Fix typo in sprintf for get_info() SQL_DATA_SOURCE_NAME + - Set the repository in META.yml to github + +------------------------------------------------------------------- Old: ---- DBD-Pg-3.5.1.tar.gz New: ---- DBD-Pg-3.5.3.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBD-Pg.spec ++++++ --- /var/tmp/diff_new_pack.GnJyVc/_old 2015-12-09 22:27:14.000000000 +0100 +++ /var/tmp/diff_new_pack.GnJyVc/_new 2015-12-09 22:27:14.000000000 +0100 @@ -1,7 +1,7 @@ # # spec file for package perl-DBD-Pg # -# Copyright (c) 2015 SUSE LINUX Products GmbH, Nuernberg, Germany. +# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -21,7 +21,7 @@ Summary: PostgreSQL database driver for the DBI module License: GPL-1.0+ or Artistic-1.0 Group: Development/Libraries/Perl -Version: 3.5.1 +Version: 3.5.3 Release: 0 Url: http://search.cpan.org/dist/DBD-Pg/ Source: http://www.cpan.org/authors/id/T/TU/TURNSTEP/DBD-Pg-%{version}.tar.gz ++++++ DBD-Pg-3.5.1.tar.gz -> DBD-Pg-3.5.3.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/Changes new/DBD-Pg-3.5.3/Changes --- old/DBD-Pg-3.5.1/Changes 2015-02-17 22:18:07.000000000 +0100 +++ new/DBD-Pg-3.5.3/Changes 2015-10-01 16:03:20.000000000 +0200 @@ -1,4 +1,22 @@ - 'GSM' is Greg Sabino Mullane, [email protected] + +Version 3.5.3 Released October 1, 2015 (git commit 62ddf200106467ce9ad31d85715a4cdf63e8be14) + + - Minor fix in the test file t/03dbmethod.t + + +Version 3.5.2 Released September 29, 2015 (git commit be8026c9160c4a29580a97dab57cb595c5448949) + + - Fix enum value ordering on Postgres servers 9.1 and greater + [Dagfinn Ilmari Mannsåker] + + - Return bigint values as plain integer values when they fit + [Dagfinn Ilmari Mannsåker] + + - Fix typo in sprintf for get_info() SQL_DATA_SOURCE_NAME + [Craig A. James] + (CPAN bug #106604) + + - Set the repository in META.yml to github Version 3.5.1 Released February 17, 2015 (git commit 6c3457ee20c19ae492d29c490af6800e7e6a0774) @@ -259,6 +277,8 @@ [Dagfinn Ilmari Mannsåker] (CPAN bug #91804) +'GSM' is Greg Sabino Mullane, [email protected] + Version 2.19.3 Released August 21, 2012 (git commit be018f10fdaf4163f98affcb7244046e8f47420d) - Fix bug in pg_st_split_statement causing segfaults diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/META.yml new/DBD-Pg-3.5.3/META.yml --- old/DBD-Pg-3.5.1/META.yml 2015-02-17 22:16:45.000000000 +0100 +++ new/DBD-Pg-3.5.3/META.yml 2015-10-01 14:59:00.000000000 +0200 @@ -1,6 +1,6 @@ --- #YAML:1.0 name : DBD-Pg -version : 3.5.1 +version : 3.5.3 abstract : DBI PostgreSQL interface author: - Greg Sabino Mullane <[email protected]> @@ -30,10 +30,10 @@ provides: DBD::Pg: file : Pg.pm - version : 3.5.1 + version : 3.5.3 Bundle::DBD::Pg: file : lib/Bundle/DBD/Pg.pm - version : 3.5.1 + version : 3.5.3 keywords: - Postgres @@ -46,7 +46,7 @@ homepage : http://search.cpan.org/dist/DBD-Pg/ license : http://dev.perl.org/licenses/ bugtracker : http://rt.cpan.org/Public/Dist/Display.html?Name=DBD-Pg - repository : git://bucardo.org/dbdpg.git + repository : https://github.com/bucardo/dbdpg MailingList : http://www.nntp.perl.org/group/perl.dbd.pg/ IRC : irc://irc.freenode.net/#postgresql diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/Makefile.PL new/DBD-Pg-3.5.3/Makefile.PL --- old/DBD-Pg-3.5.1/Makefile.PL 2015-02-17 22:17:00.000000000 +0100 +++ new/DBD-Pg-3.5.3/Makefile.PL 2015-10-01 14:57:50.000000000 +0200 @@ -5,7 +5,7 @@ use 5.008001; ## No version.pm for this one, as the prereqs are not loaded yet. -my $VERSION = '3.5.1'; +my $VERSION = '3.5.3'; ## App::Info is stored inside t/lib ## Create a proper path so we can use it below diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/Pg.pm new/DBD-Pg-3.5.3/Pg.pm --- old/DBD-Pg-3.5.1/Pg.pm 2015-02-17 22:17:03.000000000 +0100 +++ new/DBD-Pg-3.5.3/Pg.pm 2015-10-01 14:57:58.000000000 +0200 @@ -16,7 +16,7 @@ { package DBD::Pg; - use version; our $VERSION = qv('3.5.1'); + use version; our $VERSION = qv('3.5.3'); use DBI (); use DynaLoader (); @@ -540,18 +540,20 @@ qq{conrelid = $aid AND conkey = '{$attnum}'}; my $info = $dbh->selectall_arrayref($SQL); if (@$info) { - $row->[19] = $info->[0][0]; + $row->[$col_map{pg_constraint}] = $info->[0][0]; } else { - $row->[19] = undef; + $row->[$col_map{pg_constraint}] = undef; } if ( $typtype eq 'e' ) { - $SQL = "SELECT enumlabel FROM pg_catalog.pg_enum WHERE enumtypid = $typoid ORDER BY oid"; - $row->[23] = $dbh->selectcol_arrayref($SQL); + my $order_column = $dbh->{private_dbdpg}{version} >= 90100 + ? 'enumsortorder' : 'oid'; + $SQL = "SELECT enumlabel FROM pg_catalog.pg_enum WHERE enumtypid = $typoid ORDER BY $order_column"; + $row->[$col_map{pg_enum_values}] = $dbh->selectcol_arrayref($SQL); } else { - $row->[23] = undef; + $row->[$col_map{pg_enum_values}] = undef; } } @@ -1330,7 +1332,7 @@ 10021 => ['SQL_ASYNC_MODE', 2 ], ## SQL_AM_STATEMENT 120 => ['SQL_BATCH_ROW_COUNT', 2 ], ## SQL_BRC_EXPLICIT 121 => ['SQL_BATCH_SUPPORT', 3 ], ## 12 SELECT_PROC + ROW_COUNT_PROC - 2 => ['SQL_DATA_SOURCE_NAME', sub { sprintf 'dbi:Pg:%', shift->{Name} } ], + 2 => ['SQL_DATA_SOURCE_NAME', sub { sprintf 'dbi:Pg:%s', shift->{Name} } ], 3 => ['SQL_DRIVER_HDBC', 0 ], ## not applicable 135 => ['SQL_DRIVER_HDESC', 0 ], ## not applicable 4 => ['SQL_DRIVER_HENV', 0 ], ## not applicable @@ -1676,7 +1678,7 @@ =head1 VERSION -This documents version 3.5.1 of the DBD::Pg module +This documents version 3.5.3 of the DBD::Pg module =head1 DESCRIPTION @@ -2738,7 +2740,7 @@ The C<ping> method determines if there is a working connection to an active database server. It does this by sending a small query to the server, currently -B<'DBD::Pg ping test v3.5.1'>. It returns 0 (false) if the connection is not valid, +B<'DBD::Pg ping test v3.5.3'>. It returns 0 (false) if the connection is not valid, otherwise it returns a positive number (true). The value returned indicates the current state: @@ -4125,7 +4127,7 @@ one data row at a time. The first argument to pg_getcopydata is the variable into which the data will be stored (this variable should not be undefined, or it may throw a warning, although it may be a reference). The -pg_gecopydata method returns a number greater than 1 indicating the new size of +pg_getcopydata method returns a number greater than 1 indicating the new size of the variable, or a -1 when the COPY has finished. Once a -1 has been returned, no other action is necessary, as COPY mode will have already terminated. Example: diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/Pg.xs new/DBD-Pg-3.5.3/Pg.xs --- old/DBD-Pg-3.5.1/Pg.xs 2015-02-06 21:46:56.000000000 +0100 +++ new/DBD-Pg-3.5.3/Pg.xs 2015-08-09 04:01:34.000000000 +0200 @@ -210,7 +210,7 @@ SV* quote(dbh, to_quote_sv, type_sv=Nullsv) - SV* dbh + SV* dbh SV* to_quote_sv SV* type_sv @@ -493,7 +493,7 @@ pg_lo_truncate(dbh, fd, len) SV * dbh int fd - size_t len + size_t len CODE: const int ret = pg_db_lo_truncate(dbh, fd, len); ST(0) = (ret >= 0) ? sv_2mortal(newSViv(ret)) : &PL_sv_undef; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/README new/DBD-Pg-3.5.3/README --- old/DBD-Pg-3.5.1/README 2015-02-17 22:16:53.000000000 +0100 +++ new/DBD-Pg-3.5.3/README 2015-10-01 14:59:04.000000000 +0200 @@ -5,7 +5,7 @@ DESCRIPTION: ------------ -This is version 3.5.1 of DBD::Pg, the Perl interface to Postgres using DBI. +This is version 3.5.3 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 -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/SIGNATURE new/DBD-Pg-3.5.3/SIGNATURE --- old/DBD-Pg-3.5.1/SIGNATURE 2015-02-17 22:18:19.000000000 +0100 +++ new/DBD-Pg-3.5.3/SIGNATURE 2015-10-01 16:03:26.000000000 +0200 @@ -15,32 +15,32 @@ Hash: RIPEMD160 SHA1 6f4143600430e0bc949c17b05ac34844e5fb3ee4 .perlcriticrc -SHA1 7fd50009ca75ffa163778593b7e80d6df1d76390 Changes +SHA1 a6b2a372a954a99734298f58ec3ed914f4886378 Changes SHA1 21bc5f3c797d4d5b72285198ffeb1e4e1f0a2902 LICENSES/artistic.txt SHA1 06877624ea5c77efe3b7e39b0f909eda6e25a4ec LICENSES/gpl-2.0.txt SHA1 9c2b33069c9ceb7cd57ea0aeb7b8de144ab75672 MANIFEST SHA1 8d2857ee9a6326c08507d8552f86709dd068fbe5 MANIFEST.SKIP -SHA1 51f67eaf226fbacb6481bdf1cd9ba2b1e60156bd META.yml -SHA1 18a007634ef746e54755063a017dd05274c3ba1e Makefile.PL +SHA1 0202fc7046a90fefa6423bf5b09497d27b2fe188 META.yml +SHA1 a3fe9e400c331dc937e4e66b99a900bf36804cef Makefile.PL SHA1 920964b687f475c0c89d208f7b0cf445cc75cfa5 Pg.h -SHA1 c80599daa9f4d7bc0c1ea69733da2be9ebd130ca Pg.pm -SHA1 881347f6fd99e6327a7b752a9da49d2d245bcff6 Pg.xs -SHA1 f4a18e8d7b65ec7fbb99c6b263f5e15b9e60b977 README +SHA1 f22ada023592eeba8413c307202db4c809cd2e53 Pg.pm +SHA1 6b9a1863c104680ea69c0c816693cc154352d744 Pg.xs +SHA1 a10031fcf927772cc91e7241141304de015188b6 README SHA1 0332ac652afae7e53181e075ca446b88b8631ac6 README.dev SHA1 7e213bf90f513595b59c0a2c4ef94fea1592efcf README.win32 -SHA1 d1d664776d39011f328c21bef989b937d5d5b1db TODO -SHA1 f026a43c85faa98115cecfa4cb3939249610d761 dbdimp.c +SHA1 1c4cd9e564dc0888c7429835facc53a501393ca2 TODO +SHA1 9c46cfe6302a35bfc5372c964938c0a51f22f7a7 dbdimp.c SHA1 277805794455057c0b8c843b1169ed121a92ae75 dbdimp.h SHA1 6c33bcf138e577722283bef02fceb8cbce4d100d dbivport.h -SHA1 48908ba26ca5d480c713932716ea31cc0e889d1e lib/Bundle/DBD/Pg.pm +SHA1 9ec1e025cd0f1ea9d86f998e541de8f827e9c96a lib/Bundle/DBD/Pg.pm SHA1 31be571044014a059db6e66f81e73b50a8abe086 quote.c SHA1 931179894b8b48de407547a38ce0e034f75baaaa quote.h -SHA1 93aa7e8cae0a361d1e6163dea0281ebff41f3c5f t/00_signature.t +SHA1 50b2a7caadbf71d6218eb0a5c61dfcb377d0936e t/00_signature.t SHA1 4691376dd83eef11b59ee6b1bb4ce2eb951e1920 t/00basic.t SHA1 1f50adea4f2c7a5110eca34dc8b6d5dc9d4121ed t/01connect.t SHA1 42b566f777c15a3d07e41d4bca55be435349376c t/01constants.t SHA1 428de15fda885a2834908679123f0a527ae345f2 t/02attribs.t -SHA1 fe201e464695e9e0c521889e7aabb48f673024d8 t/03dbmethod.t +SHA1 030bbe93b8c209c7a2bcf7ca6dd54a867d9269f1 t/03dbmethod.t SHA1 4e16959f7f2e68667a42c86c3d35e8d317034b23 t/03smethod.t SHA1 dd47bd1ac55072177a57f856daca98904939112c t/04misc.t SHA1 9113f062bf144a5768e9e4e98a0f140f498caee1 t/06bytea.t @@ -66,7 +66,7 @@ SHA1 f07cd5ecaeb854c81ceb9206364979cf607e6546 win32.mak -----BEGIN PGP SIGNATURE----- -iEYEAREDAAYFAlTjsBsACgkQvJuQZxSWSshm2gCeNleZPlGqWsGQbAdLGs+r7xAS -CuAAniw4aN/9Xi1rkGwbTx1hKoN2Biyn -=jZjV +iEYEAREDAAYFAlYNPS4ACgkQvJuQZxSWSsgDygCfUlxkevFPdGBTv3rm/CR85/4n +0P8An2r3dkzaLkYFVmXd1le7yY/pG+iD +=0tyQ -----END PGP SIGNATURE----- diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/TODO new/DBD-Pg-3.5.3/TODO --- old/DBD-Pg-3.5.1/TODO 2014-09-19 13:24:19.000000000 +0200 +++ new/DBD-Pg-3.5.3/TODO 2015-08-11 20:05:49.000000000 +0200 @@ -7,6 +7,7 @@ https://github.com/bucardo/dbdpg (although we prefer using cpan.org) +- Remove final reference to 'adsrc' column in Pg.pm - Make all tests work when server and/or client encoding is SQL_ASCII - Enable native JSON decoding, similar to arrays, perhaps with JSON::PP - Allow partial result sets, either via PQsetSingleRowMode or something better diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/dbdimp.c new/DBD-Pg-3.5.3/dbdimp.c --- old/DBD-Pg-3.5.1/dbdimp.c 2015-02-17 22:17:21.000000000 +0100 +++ new/DBD-Pg-3.5.3/dbdimp.c 2015-10-01 14:57:45.000000000 +0200 @@ -412,7 +412,7 @@ case PGRES_TUPLES_OK: case PGRES_COPY_OUT: case PGRES_COPY_IN: - case PGRES_COPY_BOTH: + case PGRES_COPY_BOTH: sqlstate = "00000"; /* SUCCESSFUL COMPLETION */ break; case PGRES_BAD_RESPONSE: @@ -473,7 +473,7 @@ } /* No matter what state we are in, send an empty query to the backend */ - result = PQexec(imp_dbh->conn, "/* DBD::Pg ping test v3.5.1 */"); + result = PQexec(imp_dbh->conn, "/* DBD::Pg ping test v3.5.3 */"); if (NULL == result) { /* Something very bad, usually indicating the backend is gone */ return -3; @@ -823,7 +823,7 @@ break; default: /* Do nothing, unknown name */ - break; + break; } @@ -1020,8 +1020,8 @@ ph_t *currph; int i; for (i=0,currph=imp_sth->ph; NULL != currph; currph=currph->nextph,i++) { - SV *key, *val; - key = (3==imp_sth->placeholder_type ? newSVpv(currph->fooname,0) : newSViv(i+1)); + SV *key, *val; + key = (3==imp_sth->placeholder_type ? newSVpv(currph->fooname,0) : newSViv(i+1)); val = newSViv(NULL == currph->bind_type ? 0 : 1); if (! hv_store_ent(pvhv, key, val, 0)) { SvREFCNT_dec(val); @@ -1079,22 +1079,22 @@ ph_t *currph; int i; for (i=0,currph=imp_sth->ph; NULL != currph; currph=currph->nextph,i++) { - SV *key, *val; - key = (3==imp_sth->placeholder_type ? newSVpv(currph->fooname,0) : newSViv(i+1)); + SV *key, *val; + key = (3==imp_sth->placeholder_type ? newSVpv(currph->fooname,0) : newSViv(i+1)); if (NULL == currph->value) { - val = newSV(0); + val = newSV(0); if (!hv_store_ent(pvhv, key, val, 0)) { - SvREFCNT_dec(val); - } + SvREFCNT_dec(val); + } } else { - val = newSVpv(currph->value,0); + val = newSVpv(currph->value,0); if (!hv_store_ent(pvhv, key, val, 0)) { - SvREFCNT_dec(val); - } + SvREFCNT_dec(val); + } } - SvREFCNT_dec(key); + SvREFCNT_dec(key); } retsv = newRV_noinc((SV*)pvhv); } @@ -1880,8 +1880,8 @@ || (*statement >= 'a' && *statement <= 'z') || ((unsigned char)*statement >= (unsigned char)'\200'))) { /* "SQL identifiers must begin with a letter (a-z, but also letters with diacritical marks and non-Latin letters) - or an underscore (_). Subsequent characters in an identifier or key word can be letters, underscores, - digits (0-9), or dollar signs ($) + or an underscore (_). Subsequent characters in an identifier or key word can be letters, underscores, + digits (0-9), or dollar signs ($) */ sectionsize = 0; /* How far from the first dollar sign are we? */ found = 0; /* Have we found the end of the dollarquote? */ @@ -2544,9 +2544,9 @@ } else if (sql_type) { /* always bind as pg_type, because we know we are - inserting into a pg database... It would make no - sense to quote something to sql semantics and break - the insert. + inserting into a pg database... It would make no + sense to quote something to sql semantics and break + the insert. */ if (!(currph->bind_type = sql_type_data((int)sql_type))) { croak("Cannot bind param %s: unknown sql_type %ld", name, (long)sql_type); @@ -2642,7 +2642,7 @@ toparr = (AV *) SvRV(input); value = newSVpv("{", 1); if (utf8) - SvUTF8_on(value); + SvUTF8_on(value); /* Empty arrays are easy */ if (av_len(toparr) < 0) { @@ -3091,7 +3091,7 @@ break; case PGRES_COPY_OUT: case PGRES_COPY_IN: - case PGRES_COPY_BOTH: + case PGRES_COPY_BOTH: /* Copy Out/In data transfer in progress */ imp_dbh->copystate = status; rows = -1; @@ -3628,14 +3628,9 @@ { dTHX; D_imp_dbh_from_sth; - sql_type_info_t * type_info; int num_fields; - unsigned char * value; - char * p; int i; int chopblanks; - STRLEN value_len = 0; - STRLEN len; AV * av; if (TSTART_slow) TRC(DBILOGFP, "%sBegin dbd_st_fetch\n", THEADER_slow); @@ -3681,6 +3676,7 @@ } for (i = 0; i < num_fields; ++i) { + sql_type_info_t * type_info; SV *sv; if (TRACE5_slow) @@ -3693,6 +3689,7 @@ SvROK(sv) ? (void)sv_unref(sv) : (void)SvOK_off(sv); } else { + unsigned char * value; TRACE_PQGETVALUE; value = (unsigned char*)PQgetvalue(imp_sth->result, imp_sth->cur_tuple, i); @@ -3705,6 +3702,7 @@ } else { if (type_info) { + STRLEN value_len; type_info->dequote(aTHX_ value, &value_len); /* dequote in place */ /* For certain types, we can cast to non-string Perlish values */ switch (type_info->type_id) { @@ -3718,6 +3716,9 @@ break; case PG_INT4: case PG_INT2: +#if IVSIZE >= 8 && LONGSIZE >= 8 + case PG_INT8: +#endif sv_setiv(sv, atol((char *)value)); break; default: @@ -3725,13 +3726,12 @@ } } else { - value_len = strlen((char *)value); - sv_setpvn(sv, (char *)value, value_len); + sv_setpv(sv, (char *)value); } if (type_info && (PG_BPCHAR == type_info->type_id) && chopblanks) { - p = SvEND(sv); - len = SvCUR(sv); + char *p = SvEND(sv); + STRLEN len = SvCUR(sv); while(len && ' ' == *--p) --len; if (len != SvCUR(sv)) { @@ -3765,17 +3765,8 @@ if (imp_sth->use_inout) { ph_t *currph; for (i=0,currph=imp_sth->ph; NULL != currph && i < num_fields; currph=currph->nextph,i++) { - if (currph->isinout) { - /* When we have Perl 5.7.3 or better as a pre-req: - sv_copypv(currph->inout, AvARRAY(av)[i]); - */ - const char * const s = SvPV(AvARRAY(av)[i],len); - sv_setpvn(currph->inout, s, len); - if (SvUTF8(AvARRAY(av)[i])) - SvUTF8_on(currph->inout); - else - SvUTF8_off(currph->inout); - } + if (currph->isinout) + sv_copypv(currph->inout, AvARRAY(av)[i]); } } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/lib/Bundle/DBD/Pg.pm new/DBD-Pg-3.5.3/lib/Bundle/DBD/Pg.pm --- old/DBD-Pg-3.5.1/lib/Bundle/DBD/Pg.pm 2015-02-17 22:16:41.000000000 +0100 +++ new/DBD-Pg-3.5.3/lib/Bundle/DBD/Pg.pm 2015-10-01 14:58:47.000000000 +0200 @@ -4,7 +4,7 @@ use strict; use warnings; -$VERSION = '3.5.1'; +$VERSION = '3.5.3'; 1; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/t/00_signature.t new/DBD-Pg-3.5.3/t/00_signature.t --- old/DBD-Pg-3.5.1/t/00_signature.t 2014-06-23 18:55:59.000000000 +0200 +++ new/DBD-Pg-3.5.3/t/00_signature.t 2015-09-29 17:35:36.000000000 +0200 @@ -24,7 +24,7 @@ fail ('SIGNATURE file was empty'); } else { - my $ret = Module::Signature::verify(); + my $ret = Module::Signature::verify(skip=>1); if ($ret eq Module::Signature::SIGNATURE_OK()) { pass ('Valid SIGNATURE file'); } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-Pg-3.5.1/t/03dbmethod.t new/DBD-Pg-3.5.3/t/03dbmethod.t --- old/DBD-Pg-3.5.1/t/03dbmethod.t 2015-02-06 21:46:37.000000000 +0100 +++ new/DBD-Pg-3.5.3/t/03dbmethod.t 2015-10-01 01:23:24.000000000 +0200 @@ -675,11 +675,16 @@ skip ('DB handle method column_info attribute "pg_enum_values" requires at least Postgres 8.3', 2); } + my @enumvalues = qw( foo bar baz buz ); { local $dbh->{Warn} = 0; $dbh->do( q{CREATE TYPE dbd_pg_enumerated AS ENUM ('foo', 'bar', 'baz', 'buz')} ); $dbh->do( q{CREATE TEMP TABLE dbd_pg_enum_test ( is_enum dbd_pg_enumerated NOT NULL )} ); + if ($pgversion >= 90300) { + $dbh->do( q{ALTER TYPE dbd_pg_enumerated ADD VALUE 'first' BEFORE 'foo'} ); + unshift @enumvalues, 'first'; + } } $t='DB handle method "column_info" returns proper pg_type'; @@ -688,7 +693,7 @@ is ($result->{pg_type}, 'dbd_pg_enumerated', $t); $t='DB handle method "column_info" returns proper pg_enum_values'; - is_deeply ($result->{pg_enum_values}, [ qw( foo bar baz buz ) ], $t); + is_deeply ($result->{pg_enum_values}, \@enumvalues, $t); $dbh->do('DROP TABLE dbd_pg_enum_test'); $dbh->do('DROP TYPE dbd_pg_enumerated');
