r47803 - in /trunk/libdbd-mysql-perl: ChangeLog INSTALL.html MANIFEST META.yml README dbdimp.c debian/changelog eg/._bug14979.pl eg/._bug21028.pl lib/DBD/mysql.pm lib/DBD/mysql/GetInfo.pm t/40blobs.t t/85init_command.t
diocles-guest at users.alioth.debian.org
diocles-guest at users.alioth.debian.org
Thu Nov 26 20:31:08 UTC 2009
Author: diocles-guest
Date: Thu Nov 26 20:31:03 2009
New Revision: 47803
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47803
Log:
New upstream version
Added:
trunk/libdbd-mysql-perl/t/85init_command.t
- copied unchanged from r47802, branches/upstream/libdbd-mysql-perl/current/t/85init_command.t
Removed:
trunk/libdbd-mysql-perl/eg/._bug14979.pl
trunk/libdbd-mysql-perl/eg/._bug21028.pl
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/README
trunk/libdbd-mysql-perl/dbdimp.c
trunk/libdbd-mysql-perl/debian/changelog
trunk/libdbd-mysql-perl/lib/DBD/mysql.pm
trunk/libdbd-mysql-perl/lib/DBD/mysql/GetInfo.pm
trunk/libdbd-mysql-perl/t/40blobs.t
Modified: trunk/libdbd-mysql-perl/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/ChangeLog?rev=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/ChangeLog (original)
+++ trunk/libdbd-mysql-perl/ChangeLog Thu Nov 26 20:31:03 2009
@@ -1,3 +1,12 @@
+2009-09-16 Patrick Galbraith <patg at patg.net> (4.013)
+
+* #49484: PATCH add support for MYSQL_INIT_COMMAND to
+DBD::mysql - Thanks Peter John Edwards ?
+* #48242: 'mysql_bind_type_guessing' doesn't work correctly
+with minus sign - Thanks Serguei Trouchelle!
+* #45616: t/40blobs.t cannot pass without database access -
+ServerError() not declared - Thanks ysth http://ysth.livejournal.com/
+
2009-06-18 Patrick Galbraith <patg at patg.net> (4.012)
* Patch to bind_type_guessing from Craigslist,
Modified: trunk/libdbd-mysql-perl/INSTALL.html
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/INSTALL.html?rev=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/INSTALL.html (original)
+++ trunk/libdbd-mysql-perl/INSTALL.html Thu Nov 26 20:31:03 2009
@@ -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:_www at b04.apple.com" />
+<link rev="made" href="mailto:root at localhost" />
</head>
<body style="background-color: white">
@@ -88,7 +88,7 @@
<hr />
<h1><a name="prerequisites">PREREQUISITES</a></h1>
<dl>
-<dt><strong><a name="item_perl">Perl</a></strong>
+<dt><strong><a name="item_perl">Perl</a></strong></dt>
<dd>
<p>Preferrably a version of Perl, that comes preconfigured with
@@ -96,8 +96,7 @@
come with Perl. For Windows, ActivePerl is recommended, see
<a href="http://www.activestate.com">http://www.activestate.com</a> for details.</p>
</dd>
-</li>
-<dt><strong><a name="item_mysql">MySQL</a></strong>
+<dt><strong><a name="item_mysql">MySQL</a></strong></dt>
<dd>
<p>You need not install the actual MySQL database server, the
@@ -107,12 +106,8 @@
to find exact package names). These are sufficient, if the MySQL
server is located on a foreign machine. You may also create client
files by compiling from the MySQL source distribution and using</p>
-</dd>
-<dd>
<pre>
configure --without-server</pre>
-</dd>
-<dd>
<p>If you are using Windows and need to compile from sources
(which is only the case if you are not using ActivePerl),
then you must ensure that the header and library files are
@@ -120,16 +115,14 @@
and selecting the appropriate option when running the
MySQL setup program.</p>
</dd>
-</li>
-<dt><strong><a name="item_dbi">DBI</a></strong>
+<dt><strong><a name="item_dbi">DBI</a></strong></dt>
<dd>
<p>DBD::mysql is a DBI driver, hence you need DBI. It is available
from the same source where you got the DBD::mysql distribution
from.</p>
</dd>
-</li>
-<dt><strong><a name="item_c_compiler">C compiler</a></strong>
+<dt><strong><a name="item_c_compiler">C compiler</a></strong></dt>
<dd>
<p>A C compiler is only required, if you install from source. In
@@ -138,21 +131,17 @@
it is the same C compiler that was used for compiling Perl and
MySQL! Otherwise you will almost definitely encounter problems
because of differences in the underlying C runtime libraries.</p>
-</dd>
-<dd>
<p>In the worst case, this might mean to compile Perl and MySQL
yourself. But believe me, experience shows that a lot of problems
are fixed this way.</p>
</dd>
-</li>
-<dt><strong><a name="item_gzip_libraries">Gzip libraries</a></strong>
+<dt><strong><a name="item_gzip_libraries">Gzip libraries</a></strong></dt>
<dd>
<p>Late versions of MySQL come with support for compression. Thus
it <strong>may</strong> be required that you have install an RPM package like
libz-devel, libgz-devel or something similar.</p>
</dd>
-</li>
</dl>
<p>
</p>
@@ -326,107 +315,75 @@
This is described later on.</p>
<p>Available switches are:</p>
<dl>
-<dt><strong><a name="item_testdb">testdb</a></strong>
+<dt><strong><a name="item_testdb">testdb</a></strong></dt>
<dd>
<p>Name of the test database, defaults to <strong>test</strong>.</p>
</dd>
-</li>
-<dt><strong><a name="item_testuser">testuser</a></strong>
+<dt><strong><a name="item_testuser">testuser</a></strong></dt>
<dd>
<p>Name of the test user, defaults to empty. If the name is empty,
then the currently logged in users name will be used.</p>
</dd>
-</li>
-<dt><strong><a name="item_testpassword">testpassword</a></strong>
+<dt><strong><a name="item_testpassword">testpassword</a></strong></dt>
<dd>
<p>Password of the test user, defaults to empty.</p>
</dd>
-</li>
-<dt><strong><a name="item_testhost">testhost</a></strong>
+<dt><strong><a name="item_testhost">testhost</a></strong></dt>
<dd>
<p>Host name or IP number of the test database; defaults to localhost.</p>
</dd>
-</li>
-<dt><strong><a name="item_testport">testport</a></strong>
+<dt><strong><a name="item_testport">testport</a></strong></dt>
<dd>
<p>Port number of the test database</p>
</dd>
-</li>
-<dt><strong><a name="item_ps_2dprotcol_3d1_or_0">ps-protcol=1 or 0</a></strong>
+<dt><strong><a name="item_ps_2dprotcol_3d1_or_0">ps-protcol=1 or 0</a></strong></dt>
<dd>
<p>Whether to run the test suite using server prepared statements or driver
emulated prepared statemetns. ps-protocol=1 means use server prepare,
ps-protocol=0 means driver emulated.</p>
</dd>
-</li>
-<dt><strong><a name="item_cflags">cflags</a></strong>
+<dt><strong><a name="item_cflags">cflags</a></strong></dt>
<dd>
<p>This is a list of flags that you want to give to the C compiler.
The most important flag is the location of the MySQL header files.
For example, on Red Hat Linux the header files are in /usr/include/mysql
and you might try</p>
-</dd>
-<dd>
<pre>
-I/usr/include/mysql</pre>
-</dd>
-<dd>
<p>On Windows the header files may be in C:\mysql\include and you might try</p>
-</dd>
-<dd>
<pre>
-IC:\mysql\include</pre>
-</dd>
-<dd>
<p>The default flags are determined by running</p>
-</dd>
-<dd>
<pre>
mysql_config --cflags</pre>
-</dd>
-<dd>
<p>More details on the C compiler flags can be found in the following
section. <a href="#compiler_flags">Compiler flags</a>.</p>
</dd>
-</li>
-<dt><strong><a name="item_libs">libs</a></strong>
+<dt><strong><a name="item_libs">libs</a></strong></dt>
<dd>
<p>This is a list of flags that you want to give to the linker
or loader. The most important flags are the locations and names
of additional libraries. For example, on Red Hat Linux your
MySQL client libraries are in /usr/lib/mysql and you might try</p>
-</dd>
-<dd>
<pre>
-L/usr/lib/mysql -lmysqlclient -lz</pre>
-</dd>
-<dd>
<p>On Windows the libraries may be in C:\mysql\lib and</p>
-</dd>
-<dd>
<pre>
-LC:\mysql\lib -lmysqlclient</pre>
-</dd>
-<dd>
<p>might be a good choice. The default flags are determined by running</p>
-</dd>
-<dd>
<pre>
mysql_config --libs</pre>
-</dd>
-<dd>
<p>More details on the linker flags can be found in a separate section.
<a href="#linker_flags">Linker flags</a>.</p>
</dd>
-</li>
</dl>
<p>If a switch is not present on the command line, then the
script <code>mysql_config</code> will be executed. This script comes
@@ -488,52 +445,34 @@
<p>The following items typically need to be configured for the
linker:</p>
<dl>
-<dt><strong><a name="item_the_mysqlclient_library">The mysqlclient library</a></strong>
+<dt><strong><a name="item_the_mysqlclient_library">The mysqlclient library</a></strong></dt>
<dd>
<p>The MySQL client library comes as part of the MySQL distribution.
Depending on your system it may be a file called</p>
-</dd>
-<dd>
<pre>
F<libmysqlclient.a> statically linked library, Unix
F<libmysqlclient.so> dynamically linked library, Unix
F<mysqlclient.lib> statically linked library, Windows
F<mysqlclient.dll> dynamically linked library, Windows</pre>
-</dd>
-<dd>
<p>or something similar.</p>
-</dd>
-<dd>
<p>As in the case of the header files, the client library is typically
not installed by default. On Windows you will need to select them
while running the MySQL setup program (Custom installation). On
Red Hat Linux an RPM archive <em>mysql-devel</em> or <em>MySQL-devel</em> must
be installed.</p>
-</dd>
-<dd>
<p>The linker needs to know the location and name of the mysqlclient
library. This can be done by adding the flags</p>
-</dd>
-<dd>
<pre>
-L<lib directory> -lmysqlclient</pre>
-</dd>
-<dd>
<p>or by adding the complete path name. Examples:</p>
-</dd>
-<dd>
<pre>
-L/usr/lib/mysql -lmysqlclient
-LC:\mysql\lib -lmysqlclient</pre>
-</dd>
-<dd>
<p>If you would like to use the static libraries (and there are
excellent reasons to do so), you need to create a separate
directory, copy the static libraries to that place and use
the -L switch above to point to your new directory. For example:</p>
-</dd>
-<dd>
<pre>
mkdir /tmp/mysql-static
cp /usr/lib/mysql/*.a /tmp/mysql-static
@@ -543,28 +482,20 @@
make install
rm -rf /tmp/mysql-static</pre>
</dd>
-</li>
-<dt><strong><a name="item_the_gzip_library">The gzip library</a></strong>
+<dt><strong><a name="item_the_gzip_library">The gzip library</a></strong></dt>
<dd>
<p>The MySQL client can use compression when talking to the MySQL
server, a nice feature when sending or receiving large texts over
a slow network.</p>
-</dd>
-<dd>
<p>On Unix you typically find the appropriate file name by running</p>
-</dd>
-<dd>
<pre>
ldconfig -p | grep libz
ldconfig -p | grep libgz</pre>
-</dd>
-<dd>
<p>Once you know the name (libz.a or libgz.a is best), just add it
to the list of linker flags. If this seems to be causing problem
you may also try to link without gzip libraries.</p>
</dd>
-</li>
</dl>
<p>
</p>
@@ -598,64 +529,53 @@
unstable.</p>
<p>Install MySQL (if you havn't already)</p>
<dl>
-<dt><strong><a name="item__2d">-</a></strong>
+<dt><strong><a name="item__2d">-</a></strong></dt>
<dd>
<p>download the MySQL Windows Binaries from
<a href="http://www.mysql.com/downloads/index.html">http://www.mysql.com/downloads/index.html</a></p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>unzip mysql-<version>-win.zip into some temporary location</p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>start the setup.exe there and follow the instructions</p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>start the server</p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>alternatively download, install and start the server on a remote
server, on what supported OS ever</p>
</dd>
-</li>
</dl>
<p>Build MySQL clients under Cygwin:</p>
<dl>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>download the MySQL LINUX source from
<a href="http://www.mysql.com/downloads/index.html">http://www.mysql.com/downloads/index.html</a></p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>unpack mysql-<version>.tar.gz into some tmp location</p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>cd into the unpacked dir mysql-<version></p>
-</dd>
-<dd>
<pre>
./configure --prefix=/usr/local/mysql --without-server</pre>
-</dd>
-<dd>
<p>This prepares the Makefile with the installed Cygwin features. It
takes some time, but should finish without error. The 'prefix', as
given, installs the whole Cygwin/MySQL thingy into a location not
@@ -663,46 +583,35 @@
Windows binaries. The --without-server parameter tells configure to
only build the clients.</p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<pre>
make</pre>
-</dd>
-<dd>
<p>This builds all MySQL client parts ... be patient. It should finish
finally without any error.</p>
</dd>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<pre>
make install</pre>
-</dd>
-<dd>
<p>This installs the compiled client files under /usr/local/mysql/.
Remember, you don't need anything except the library under
/usr/local/mysql/lib and the headers under /usr/local/mysql/include!</p>
-</dd>
-<dd>
<p>Essentially you are now done with this part. If you want, you may try
your compiled binaries shortly; for that, do:</p>
</dd>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<pre>
cd /usr/local/mysql/bin
./mysql -h 127.0.0.1</pre>
-</dd>
-<dd>
<p>The host (-h) parameter 127.0.0.1 targets the local host, but forces
the mysql client to use a TCP/IP connection. The default would be a
pipe/socket connection (even if you say '-h localhost') and this
doesn't work between Cygwin and Windows (as far as I know).</p>
-</dd>
-<dd>
<p>If you have your MySQL server running on some other box, then please
substitute '127.0.0.1' with the name or IP-number of that box.</p>
</dd>
@@ -721,77 +630,64 @@
<p>You are now ready to build DBD::mysql!</p>
<p>Build DBD::mysql:</p>
<dl>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>download DBD-mysql-<version>.tar.gz from CPAN</p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>unpack DBD-mysql-<version>.tar.gz</p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<p>cd into unpacked dir DBD-mysql-<version>
you probably did that already, if you are reading this!</p>
</dd>
-</li>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<pre>
cp /usr/local/mysql/bin/mysql_config .</pre>
-</dd>
-<dd>
<p>This copies the executable script mentioned in the DBD::mysql docs
from your just built Cywin/MySQL client directory; it knows about
your Cygwin installation, especially about the right libraries to link
with.</p>
</dd>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<pre>
perl Makefile.PL --testhost=127.0.0.1</pre>
-</dd>
-<dd>
<p>The --testhost=127.0.0.1 parameter again forces a TCP/IP connection
to the MySQL server on the local host instead of a pipe/socket
connection for the 'make test' phase.</p>
</dd>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<pre>
make</pre>
-</dd>
-<dd>
<p>This should run without error</p>
</dd>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<pre>
make test</pre>
-</dd>
-<dd>
<p>with DBD-mysql-2.1022 or earlier you will see several errors in
dbdadmin.t, mysql.t and mysql2.t; with later versions you should not
get errors (except possibly one, indicating, that some tables could
not be dropped. I'm hunting for a solution to that problem, but have
none yet).</p>
</dd>
-<dt><strong>-</strong>
+<dt><strong>-</strong></dt>
<dd>
<pre>
make install</pre>
-</dd>
-<dd>
<p>This installs DBD::mysql into the Perl hierarchy.</p>
</dd>
</dl>
Modified: trunk/libdbd-mysql-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/MANIFEST?rev=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/MANIFEST (original)
+++ trunk/libdbd-mysql-perl/MANIFEST Thu Nov 26 20:31:03 2009
@@ -50,6 +50,7 @@
t/75supported_sql.t
t/76multi_statement.t
t/80procs.t
+t/85init_command.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=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/META.yml (original)
+++ trunk/libdbd-mysql-perl/META.yml Thu Nov 26 20:31:03 2009
@@ -1,7 +1,7 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: DBD-mysql
-version: 4.012
+version: 4.013
version_from: lib/DBD/mysql.pm
installdirs: site
requires:
@@ -9,4 +9,4 @@
DBI: 1.08
distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.30
+generated_by: ExtUtils::MakeMaker version 6.30_01
Modified: trunk/libdbd-mysql-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/README?rev=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/README (original)
+++ trunk/libdbd-mysql-perl/README Thu Nov 26 20:31:03 2009
@@ -119,5 +119,5 @@
perl at lists.mysql.com
-You can also get help from the maintainer, Patrick Galbraith patg at grazr.com,
+You can also get help from the maintainer, Patrick Galbraith patg at patg.net
Modified: trunk/libdbd-mysql-perl/dbdimp.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/dbdimp.c?rev=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/dbdimp.c (original)
+++ trunk/libdbd-mysql-perl/dbdimp.c Thu Nov 26 20:31:03 2009
@@ -1501,6 +1501,16 @@
" connect timeout (%d).\n",to);
mysql_options(sock, MYSQL_OPT_CONNECT_TIMEOUT,
(const char *)&to);
+ }
+ if ((svp = hv_fetch(hv, "mysql_init_command", 18, FALSE)) &&
+ *svp && SvTRUE(*svp))
+ {
+ char* df = SvPV(*svp, lna);
+ if (DBIc_TRACE_LEVEL(imp_xxh) >= 2)
+ PerlIO_printf(DBILOGFP,
+ "imp_dbh->mysql_dr_connect: Setting" \
+ " init command (%s).\n", df);
+ mysql_options(sock, MYSQL_INIT_COMMAND, df);
}
if ((svp = hv_fetch(hv, "mysql_read_default_file", 23, FALSE)) &&
*svp && SvTRUE(*svp))
@@ -4661,9 +4671,10 @@
int seen_dec;
int seen_e;
int seen_plus;
+ int seen_digit;
char *cp;
- seen_neg= seen_dec= seen_e= seen_plus= 0;
+ seen_neg= seen_dec= seen_e= seen_plus= seen_digit= 0;
if (len <= 0) {
len= strlen(string);
@@ -4717,6 +4728,7 @@
}
else if (!isdigit(*cp))
{
+ seen_digit= 1;
break;
}
}
@@ -4724,7 +4736,7 @@
*end= cp;
/* length 0 -> not a number */
- if (len == 0 || cp - string < (int) len) {
+ if (len == 0 || cp - string < (int) len || seen_digit == 0) {
return -1;
}
Modified: trunk/libdbd-mysql-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/debian/changelog?rev=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/debian/changelog (original)
+++ trunk/libdbd-mysql-perl/debian/changelog Thu Nov 26 20:31:03 2009
@@ -1,8 +1,12 @@
-libdbd-mysql-perl (4.012-2) UNRELEASED; urgency=low
-
+libdbd-mysql-perl (4.013-1) UNRELEASED; urgency=low
+
+ [ Raphaël Hertzog ]
* Remove myself from Uploaders.
- -- Raphaël Hertzog <hertzog at debian.org> Sun, 20 Sep 2009 15:50:14 +0200
+ [ Tim Retout ]
+ * New upstream version.
+
+ -- Tim Retout <tim at retout.co.uk> Thu, 26 Nov 2009 20:29:59 +0000
libdbd-mysql-perl (4.012-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=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/lib/DBD/mysql.pm (original)
+++ trunk/libdbd-mysql-perl/lib/DBD/mysql.pm Thu Nov 26 20:31:03 2009
@@ -9,7 +9,7 @@
use Carp ();
@ISA = qw(DynaLoader);
-$VERSION = '4.012';
+$VERSION = '4.013';
bootstrap DBD::mysql $VERSION;
@@ -946,6 +946,12 @@
request to the server will timeout if it has not been successful after
the given number of seconds.
+=item mysql_init_command
+
+If your DSN contains the option "mysql_init_command_timeout=##", then
+this SQL statement is executed when conencting to the MySQL server.
+It is automatically re-executed if reconnection occurs.
+
=item mysql_read_default_file
=item mysql_read_default_group
Modified: trunk/libdbd-mysql-perl/lib/DBD/mysql/GetInfo.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/lib/DBD/mysql/GetInfo.pm?rev=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/lib/DBD/mysql/GetInfo.pm (original)
+++ trunk/libdbd-mysql-perl/lib/DBD/mysql/GetInfo.pm Thu Nov 26 20:31:03 2009
@@ -4,9 +4,9 @@
#
#
# Generated by DBI::DBD::Metadata
-# $Author: capttofu $ <-- the person to blame
-# $Revision: 8435 $
-# $Date: 2006-12-23 14:03:49 -0500 (Sat, 23 Dec 2006) $
+# $Author: rlippan $ <-- the person to blame
+# $Revision: 1108 $
+# $Date: 2003-03-31 20:17:27 -0500 (Mon, 31 Mar 2003) $
use strict;
use DBD::mysql;
Modified: trunk/libdbd-mysql-perl/t/40blobs.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mysql-perl/t/40blobs.t?rev=47803&op=diff
==============================================================================
--- trunk/libdbd-mysql-perl/t/40blobs.t (original)
+++ trunk/libdbd-mysql-perl/t/40blobs.t Thu Nov 26 20:31:03 2009
@@ -34,14 +34,16 @@
eval {$dbh = DBI->connect($test_dsn, $test_user, $test_password,
{ RaiseError => 1, AutoCommit => 1}) or ServerError() ;};
-if ($dbh->get_info($GetInfoType{SQL_DBMS_VER}) lt "4.1") {
- $charset= '';
-}
if ($@) {
plan skip_all => "ERROR: $DBI::errstr. Can't continue test";
}
+
plan tests => 14;
+
+if ($dbh->get_info($GetInfoType{SQL_DBMS_VER}) lt "4.1") {
+ $charset= '';
+}
my $size= 128;
More information about the Pkg-perl-cvs-commits
mailing list