r73364 - in /trunk/libdbd-mysql-perl: ChangeLog INSTALL.html MANIFEST META.yml dbdimp.c debian/changelog lib/DBD/mysql.pm t/86_bug_36972.t
periapt-guest at users.alioth.debian.org
periapt-guest at users.alioth.debian.org
Sun Apr 24 09:49:29 UTC 2011
Author: periapt-guest
Date: Sun Apr 24 09:49:20 2011
New Revision: 73364
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=73364
Log:
New upstream release
Added:
trunk/libdbd-mysql-perl/t/86_bug_36972.t
- copied unchanged from r73363, branches/upstream/libdbd-mysql-perl/current/t/86_bug_36972.t
Modified:
trunk/libdbd-mysql-perl/ChangeLog
trunk/libdbd-mysql-perl/INSTALL.html
trunk/libdbd-mysql-perl/MANIFEST
trunk/libdbd-mysql-perl/META.yml
trunk/libdbd-mysql-perl/dbdimp.c
trunk/libdbd-mysql-perl/debian/changelog
trunk/libdbd-mysql-perl/lib/DBD/mysql.pm
Modified: trunk/libdbd-mysql-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/ChangeLog?rev=73364&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/ChangeLog (original)
+++ trunk/libdbd-mysql-perl/ChangeLog Sun Apr 24 09:49:20 2011
@@ -1,3 +1,8 @@
+2010-08-11 Patrick Galbraith <patg at patg.net> (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 <patg at patg.net> (4.017)
* BUG #60085, Andreas Koenig's patch for DBI changes
* Updated documents
Modified: trunk/libdbd-mysql-perl/INSTALL.html
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/INSTALL.html?rev=73364&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/INSTALL.html (original)
+++ trunk/libdbd-mysql-perl/INSTALL.html Sun Apr 24 09:49:20 2011
@@ -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 at b87.apple.com" />
+<link rev="made" href="mailto:_www at b04.apple.com" />
</head>
<body style="background-color: white">
Modified: trunk/libdbd-mysql-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/MANIFEST?rev=73364&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/MANIFEST (original)
+++ trunk/libdbd-mysql-perl/MANIFEST Sun Apr 24 09:49:20 2011
@@ -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
Modified: trunk/libdbd-mysql-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/META.yml?rev=73364&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/META.yml (original)
+++ trunk/libdbd-mysql-perl/META.yml Sun Apr 24 09:49:20 2011
@@ -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 <rlippan at remotelinux.com>
Modified: trunk/libdbd-mysql-perl/dbdimp.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/dbdimp.c?rev=73364&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/dbdimp.c (original)
+++ trunk/libdbd-mysql-perl/dbdimp.c Sun Apr 24 09:49:20 2011
@@ -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
Modified: trunk/libdbd-mysql-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/debian/changelog?rev=73364&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/debian/changelog (original)
+++ trunk/libdbd-mysql-perl/debian/changelog Sun Apr 24 09:49:20 2011
@@ -1,4 +1,4 @@
-libdbd-mysql-perl (4.017-1) UNRELEASED; urgency=low
+libdbd-mysql-perl (4.018-1) UNRELEASED; urgency=low
[ Ansgar Burchardt ]
IGNORE-VERSION: 4.017-1
@@ -11,8 +11,9 @@
[ Nicholas Bamber ]
* Added myself to Uploaders
-
- -- Ansgar Burchardt <ansgar at 43-1.org> Sun, 15 Aug 2010 15:33:22 +0900
+ * New upstream release
+
+ -- Nicholas Bamber <nicholas at periapt.co.uk> Sun, 24 Apr 2011 10:50:58 +0100
libdbd-mysql-perl (4.016-1) unstable; urgency=low
Modified: trunk/libdbd-mysql-perl/lib/DBD/mysql.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/lib/DBD/mysql.pm?rev=73364&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/lib/DBD/mysql.pm (original)
+++ trunk/libdbd-mysql-perl/lib/DBD/mysql.pm Sun Apr 24 09:49:20 2011
@@ -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<max_length> 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.
More information about the Pkg-perl-cvs-commits
mailing list