Hello community,
here is the log from the commit of package perl-DBD-mysql for openSUSE:Factory
checked in at Wed Jan 12 13:22:33 CET 2011.
--------
--- perl-DBD-mysql/perl-DBD-mysql.changes 2010-12-01 14:42:54.000000000 +0100
+++ /mounts/work_src_done/STABLE/perl-DBD-mysql/perl-DBD-mysql.changes 2011-01-11 10:32:09.000000000 +0100
@@ -1,0 +2,20 @@
+Fri Jan 7 14:45:14 UTC 2011 - vcizek@novell.com
+
+- update to 4.018
+- added bnc658792_pod_name_install.diff to fix BNC#658792
+ upstreamed as https://rt.cpan.org/Ticket/Display.html?id=64013
+ * Added client and server info patch from Robert M. Jansen
+ * Added documentation and tests for new features
+ * More code cleanup
+
+-------------------------------------------------------------------
+Fri Dec 17 12:09:36 UTC 2010 - jw@novell.com
+
+- added bnc658792_pod_name_install.diff to fix BNC#658792
+ upstreamed as https://rt.cpan.org/Ticket/Display.html?id=64013
+- updated to 4.018
+ * Added client and server info patch from Robert M. Jansen
+ * Added documentation and tests for new features
+ * More code cleanup
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
DBD-mysql-4.017.tar.bz2
New:
----
bnc658792_pod_name_install.diff
DBD-mysql-4.018.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-DBD-mysql.spec ++++++
--- /var/tmp/diff_new_pack.m39ml3/_old 2011-01-12 11:42:27.000000000 +0100
+++ /var/tmp/diff_new_pack.m39ml3/_new 2011-01-12 11:42:27.000000000 +0100
@@ -1,7 +1,7 @@
#
-# spec file for package perl-DBD-mysql (Version 4.017)
+# spec file for package perl-DBD-mysql (Version 4.018)
#
-# Copyright (c) 2010 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2011 SUSE LINUX Products 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,14 +21,16 @@
Name: perl-DBD-mysql
%define cpan_name DBD-mysql
Summary: MySQL driver for the Perl5 Database Interface (DBI)
-Version: 4.017
-Release: 2
+Version: 4.018
+Release: 1
License: GPL+ or Artistic
Group: Development/Libraries/Perl
Url: http://search.cpan.org/dist/DBD-mysql/
-#Source: http://www.cpan.org/modules/by-module/DBD/DBD-mysql-%{version}.tar.gz
-Source: %{cpan_name}-%{version}.tar.bz2
+#Source: http://www.cpan.org/modules/by-module/DBD/DBD-mysql-%{version}.tar.bz2
+Source: http://search.cpan.org/CPAN/authors/id/C/CA/CAPTTOFU/%{cpan_name}-%{version}.tar.bz2
+Patch1: bnc658792_pod_name_install.diff
BuildRoot: %{_tmppath}/%{name}-%{version}-build
+# quilt does not grock that
%{perl_requires}
BuildRequires: mysql-devel
BuildRequires: perl
@@ -56,6 +58,7 @@
# spurious-executable-perm
# script-without-shebang
find -type f -exec %{__chmod} 0644 {} \;
+%patch1 -p1
%build
%{__perl} Makefile.PL INSTALLDIRS=vendor --cflags="-I%{_includedir}/mysql $RPM_OPT_FLAGS"
++++++ bnc658792_pod_name_install.diff ++++++
---
lib/DBD/mysql/INSTALL.pod | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
Index: DBD-mysql-4.018/lib/DBD/mysql/INSTALL.pod
===================================================================
--- DBD-mysql-4.018.orig/lib/DBD/mysql/INSTALL.pod
+++ DBD-mysql-4.018/lib/DBD/mysql/INSTALL.pod
@@ -1,6 +1,6 @@
=head1 NAME
-INSTALL - How to install and configure DBD::mysql
+DBD::mysql::INSTALL - How to install and configure DBD::mysql
=head1 SYNOPSIS
++++++ DBD-mysql-4.017.tar.bz2 -> DBD-mysql-4.018.tar.bz2 ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.017/ChangeLog new/DBD-mysql-4.018/ChangeLog
--- old/DBD-mysql-4.017/ChangeLog 2010-08-12 02:54:55.000000000 +0200
+++ new/DBD-mysql-4.018/ChangeLog 2010-10-26 18:58:17.000000000 +0200
@@ -1,3 +1,8 @@
+2010-08-11 Patrick Galbraith (4.018)
+* Added client and server info patch from Robert M. Jansen
+* Added documentation and tests for new features
+* More code cleanup
+
2010-08-11 Patrick Galbraith (4.017)
* BUG #60085, Andreas Koenig's patch for DBI changes
* Updated documents
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.017/dbdimp.c new/DBD-mysql-4.018/dbdimp.c
--- old/DBD-mysql-4.017/dbdimp.c 2010-08-10 01:12:46.000000000 +0200
+++ new/DBD-mysql-4.018/dbdimp.c 2010-10-26 18:53:10.000000000 +0200
@@ -2439,6 +2439,18 @@
result = sv_2mortal(newSViv(imp_dbh->bind_comment_placeholders));
}
break;
+ case 'c':
+ if (kl == 10 && strEQ(key, "clientinfo"))
+ {
+ const char* clientinfo = mysql_get_client_info();
+ result= clientinfo ?
+ sv_2mortal(newSVpv(clientinfo, strlen(clientinfo))) : &sv_undef;
+ }
+ else if (kl == 13 && strEQ(key, "clientversion"))
+ {
+ result= sv_2mortal(my_ulonglong2str(mysql_get_client_version()));
+ }
+ break;
case 'e':
if (strEQ(key, "errno"))
result= sv_2mortal(newSViv((IV)mysql_errno(imp_dbh->pmysql)));
@@ -2514,6 +2526,8 @@
result= serverinfo ?
sv_2mortal(newSVpv(serverinfo, strlen(serverinfo))) : &PL_sv_undef;
}
+ else if (kl == 13 && strEQ(key, "serverversion"))
+ result= sv_2mortal(my_ulonglong2str(mysql_get_server_version(imp_dbh->pmysql)));
else if (strEQ(key, "sock"))
result= sv_2mortal(newSViv((IV) imp_dbh->pmysql));
else if (strEQ(key, "sockfd"))
@@ -2548,7 +2562,7 @@
}
-/*
+/*
**************************************************************************
*
* Name: dbd_st_prepare
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.017/INSTALL.html new/DBD-mysql-4.018/INSTALL.html
--- old/DBD-mysql-4.017/INSTALL.html 2010-08-12 02:57:50.000000000 +0200
+++ new/DBD-mysql-4.018/INSTALL.html 2010-10-26 18:58:20.000000000 +0200
@@ -4,7 +4,7 @@
<head>
<title>INSTALL - How to install and configure DBD::mysql</title>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
-<link rev="made" href="mailto:_mdnsresponder@b87.apple.com" />
+<link rev="made" href="mailto:_www@b04.apple.com" />
</head>
<body style="background-color: white">
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.017/lib/DBD/mysql.pm new/DBD-mysql-4.018/lib/DBD/mysql.pm
--- old/DBD-mysql-4.017/lib/DBD/mysql.pm 2010-08-11 23:42:48.000000000 +0200
+++ new/DBD-mysql-4.018/lib/DBD/mysql.pm 2010-10-26 16:40:27.000000000 +0200
@@ -9,7 +9,7 @@
use Carp ();
@ISA = qw(DynaLoader);
-$VERSION = '4.017';
+$VERSION = '4.018';
bootstrap DBD::mysql $VERSION;
@@ -1482,6 +1482,27 @@
the theoretically possible maximum. I is valid for MySQL
only.
+=item mysql_clientinfo
+
+List information of the MySQL client library that DBD::mysql was built
+against:
+
+print "$dbh->{mysql_clientinfo}\n";
+
+5.2.0-MariaDB
+
+=item mysql_clientversion
+
+print "$dbh->{mysql_clientversion}\n";
+
+50200
+
+=item mysql_serverversion
+
+print "$dbh->{mysql_serverversion}\n";
+
+50200
+
=item NAME
A reference to an array of column names.
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.017/MANIFEST new/DBD-mysql-4.018/MANIFEST
--- old/DBD-mysql-4.017/MANIFEST 2010-07-09 21:35:09.000000000 +0200
+++ new/DBD-mysql-4.018/MANIFEST 2010-10-26 18:57:46.000000000 +0200
@@ -54,6 +54,7 @@
t/76multi_statement.t
t/80procs.t
t/85init_command.t
+t/86_bug_36972.t
t/lib.pl
t/mysql.dbtest
t/mysql.mtest
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.017/META.yml new/DBD-mysql-4.018/META.yml
--- old/DBD-mysql-4.017/META.yml 2010-08-12 02:57:50.000000000 +0200
+++ new/DBD-mysql-4.018/META.yml 2010-10-26 18:58:20.000000000 +0200
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: DBD-mysql
-version: 4.017
+version: 4.018
abstract: A MySQL driver for the Perl5 Database Interface (DBI)
author:
- Rudy Lippan
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/DBD-mysql-4.017/t/86_bug_36972.t new/DBD-mysql-4.018/t/86_bug_36972.t
--- old/DBD-mysql-4.017/t/86_bug_36972.t 1970-01-01 01:00:00.000000000 +0100
+++ new/DBD-mysql-4.018/t/86_bug_36972.t 2010-10-26 02:23:10.000000000 +0200
@@ -0,0 +1,46 @@
+#!perl -w
+# vim: ft=perl
+
+use strict;
+use Test::More;
+use DBI;
+use lib 't', '.';
+require 'lib.pl';
+use vars qw($table $test_dsn $test_user $test_password);
+
+$|= 1;
+
+my $dbh;
+eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,
+ { RaiseError => 1, PrintError => 1, AutoCommit => 0 });};
+
+if ($@) {
+ plan skip_all => "ERROR: $@. Can't continue test";
+}
+plan tests => 11;
+
+ok(defined $dbh, "connecting");
+
+#
+# Bug #42723: Binding server side integer parameters results in corrupt data
+#
+ok($dbh->do('DROP TABLE IF EXISTS t1'), "making slate clean");
+
+ok($dbh->do('CREATE TABLE `t1` (`i` int,`si` smallint,`ti` tinyint,`bi` bigint)'), "creating test table");
+
+my $sth2;
+ok($sth2 = $dbh->prepare('INSERT INTO t1 VALUES (?,?,?,?)'));
+
+#bind test values
+ok($sth2->bind_param(1, 101, DBI::SQL_INTEGER), "binding int");
+ok($sth2->bind_param(2, 102, DBI::SQL_SMALLINT), "binding smallint");
+ok($sth2->bind_param(3, 103, DBI::SQL_TINYINT), "binding tinyint");
+ok($sth2->bind_param(4, 104, DBI::SQL_INTEGER), "binding bigint");
+
+ok($sth2->execute(), "inserting data");
+
+is_deeply($dbh->selectall_arrayref('SELECT * FROM t1'), [[101, 102, 103, 104]]);
+
+ok ($dbh->do('DROP TABLE t1'), "cleaning up");
+
+$dbh->disconnect();
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org