Hello community, here is the log from the commit of package perl-DBD-ODBC for openSUSE:Factory checked in at 2018-04-19 15:27:42 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-DBD-ODBC (Old) and /work/SRC/openSUSE:Factory/.perl-DBD-ODBC.new (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-DBD-ODBC" Thu Apr 19 15:27:42 2018 rev:42 rq:593455 version:1.58 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-DBD-ODBC/perl-DBD-ODBC.changes 2018-03-07 10:34:38.558554255 +0100 +++ /work/SRC/openSUSE:Factory/.perl-DBD-ODBC.new/perl-DBD-ODBC.changes 2018-04-19 15:27:46.327265007 +0200 @@ -1,0 +2,22 @@ +Wed Mar 21 06:12:00 UTC 2018 - [email protected] + +- updated to 1.58 + see /usr/share/doc/packages/perl-DBD-ODBC/Changes + + 1.58 2018-03-01 + + [MISCELLANEOUS] + + Various changes to the test suite to get better results with Postgres + + 1.57 2018-03-01 + + [MISCELLANEOUS] + + Merged pull request 6 from genio which allows Makefile.PL argument -u + to be set via the environment variable DBD_ODBC_UNICODE + + This version was removed from CPAN because it was uploaded with a nasty + bug in the diagnostics code. + +------------------------------------------------------------------- Old: ---- DBD-ODBC-1.57.tar.gz New: ---- DBD-ODBC-1.58.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-DBD-ODBC.spec ++++++ --- /var/tmp/diff_new_pack.KWsmYJ/_old 2018-04-19 15:27:47.167230731 +0200 +++ /var/tmp/diff_new_pack.KWsmYJ/_new 2018-04-19 15:27:47.187229915 +0200 @@ -17,7 +17,7 @@ Name: perl-DBD-ODBC -Version: 1.57 +Version: 1.58 Release: 0 %define cpan_name DBD-ODBC Summary: ODBC Driver for DBI ++++++ DBD-ODBC-1.57.tar.gz -> DBD-ODBC-1.58.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-ODBC-1.57/Changes new/DBD-ODBC-1.58/Changes --- old/DBD-ODBC-1.57/Changes 2016-10-06 10:30:13.000000000 +0200 +++ new/DBD-ODBC-1.58/Changes 2018-03-20 10:33:08.000000000 +0100 @@ -5,6 +5,22 @@ DBD::ODBC::Changes - Log of significant changes to the DBD::ODBC +1.58 2018-03-01 + + [MISCELLANEOUS] + + Various changes to the test suite to get better results with Postgres + +1.57 2018-03-01 + + [MISCELLANEOUS] + + Merged pull request 6 from genio which allows Makefile.PL argument -u + to be set via the environment variable DBD_ODBC_UNICODE + + This version was removed from CPAN because it was uploaded with a nasty + bug in the diagnostics code. + 1.56 2016-10-06 Full release of the 1.53 development series diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-ODBC-1.57/META.yml new/DBD-ODBC-1.58/META.yml --- old/DBD-ODBC-1.57/META.yml 2018-03-01 09:25:39.000000000 +0100 +++ new/DBD-ODBC-1.58/META.yml 2018-03-01 16:50:28.000000000 +0100 @@ -1,7 +1,7 @@ #--- #YAML:1.0 name: DBD-ODBC abstract: ODBC DBD for Perl DBI -version: 1.57 +version: 1.58 version_from: ODBC.pm author: - Martin J. Evans <[email protected]> diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-ODBC-1.57/ODBC.pm new/DBD-ODBC-1.58/ODBC.pm --- old/DBD-ODBC-1.57/ODBC.pm 2018-03-01 09:26:16.000000000 +0100 +++ new/DBD-ODBC-1.58/ODBC.pm 2018-03-01 16:50:41.000000000 +0100 @@ -18,7 +18,7 @@ # see discussion on dbi-users at # http://www.nntp.perl.org/group/perl.dbi.dev/2010/07/msg6096.html and # http://www.dagolden.com/index.php/369/version-numbers-should-be-boring/ -$DBD::ODBC::VERSION = '1.57'; +$DBD::ODBC::VERSION = '1.58'; { ## no critic (ProhibitMagicNumbers ProhibitExplicitISA) @@ -671,7 +671,7 @@ =head1 VERSION -This documentation refers to DBD::ODBC version 1.57. +This documentation refers to DBD::ODBC version 1.58. =head1 WARNING diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-ODBC-1.57/ODBC.xs new/DBD-ODBC-1.58/ODBC.xs --- old/DBD-ODBC-1.57/ODBC.xs 2016-12-12 10:15:43.000000000 +0100 +++ new/DBD-ODBC-1.58/ODBC.xs 2018-03-01 17:14:42.000000000 +0100 @@ -96,9 +96,9 @@ rc = SQLGetDiagRec(SQL_HANDLE_STMT, imp_sth->hstmt, record, state, &native, msg, sizeof(msg), &msg_len); if (SQL_SUCCEEDED(rc)) { - XPUSHs(sv_2mortal(newSVpvn(state, 0))); + XPUSHs(sv_2mortal(newSVpv(state, 0))); XPUSHs(sv_2mortal(newSViv(native))); - XPUSHs(sv_2mortal(newSVpvn(msg, 0))); + XPUSHs(sv_2mortal(newSVpv(msg, 0))); } else if (rc == SQL_NO_DATA) { # no diags found } else { @@ -161,7 +161,7 @@ } else if (info_ptr == &ret_type) { XPUSHs(sv_2mortal(newSViv(ret_type))); } else { - XPUSHs(sv_2mortal(newSVpvn(buf, 0))); + XPUSHs(sv_2mortal(newSVpvn(buf, buf_len))); } } else if (rc == SQL_NO_DATA) { # no diags found @@ -287,7 +287,7 @@ # rc = odbc_describe_col(sth, colno, ColumnName, sizeof(ColumnName), &NameLength, # &DataType, &ColumnSize, &DecimalDigits, &Nullable); # if (rc) { - # XPUSHs(newSVpvn(ColumnName, 0)); + # XPUSHs(newSVpv(ColumnName, 0)); # XPUSHs(newSViv(DataType)); # XPUSHs(newSViv(ColumnSize)); # XPUSHs(newSViv(DecimalDigits)); @@ -326,9 +326,9 @@ rc = SQLGetDiagRec(SQL_HANDLE_DBC, imp_dbh->hdbc, record, state, &native, msg, sizeof(msg), &msg_len); if (SQL_SUCCEEDED(rc)) { - XPUSHs(sv_2mortal(newSVpvn(state, 0))); + XPUSHs(sv_2mortal(newSVpv(state, 0))); XPUSHs(sv_2mortal(newSViv(native))); - XPUSHs(sv_2mortal(newSVpvn(msg, 0))); + XPUSHs(sv_2mortal(newSVpvn(msg, msg_len))); } else if (rc == SQL_NO_DATA) { # no diags found } else { @@ -392,7 +392,7 @@ } else if (info_ptr == &ret_type) { XPUSHs(sv_2mortal(newSViv(ret_type))); } else { - XPUSHs(sv_2mortal(newSVpvn(buf, 0))); + XPUSHs(sv_2mortal(newSVpvn(buf, buf_len))); } } else if (rc == SQL_NO_DATA) { # no diags found diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-ODBC-1.57/t/ODBCTEST.pm new/DBD-ODBC-1.58/t/ODBCTEST.pm --- old/DBD-ODBC-1.57/t/ODBCTEST.pm 2017-01-12 18:17:19.000000000 +0100 +++ new/DBD-ODBC-1.58/t/ODBCTEST.pm 2018-03-20 15:34:49.000000000 +0100 @@ -149,14 +149,14 @@ # to figure it out, since I'm not a SQL server expert. Anyone out there? # (mine returns "dbo" for the owner on ALL my tables. This is obviously something # significant for SQL Server...one of these days I'll dig... - if (($table_name eq uc($row->{TABLE_NAME}))) { - # and (uc($user) eq uc($row[1]))) - # qeDBF driver returns null for TABLE_OWNER - my $owner = $row->{TABLE_OWNER} || '(unknown owner)'; - # diag("$owner.$row->{TABLE_NAME}\n"); - $rc = 1; - last; - } + if ((lc($table_name) eq lc($row->{TABLE_NAME}))) { + # and (uc($user) eq uc($row[1]))) + # qeDBF driver returns null for TABLE_OWNER + my $owner = $row->{TABLE_OWNER} || '(unknown owner)'; + # diag("$owner.$row->{TABLE_NAME}\n"); + $rc = 1; + last; + } } $sth->finish(); $rc;
