Skip Menu |
 

This queue is for tickets about the DBD-mysql CPAN distribution.

Report information
The Basics
Id: 83359
Status: rejected
Priority: 0/
Queue: DBD-mysql

People
Owner: Nobody in particular
Requestors: sveta.smirnova [...] oracle.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 4.012
Fixed in: (no value)



Subject: DBD::mysql t/40blobs.t cannot pass without database access
Download (untitled) / with headers
text/plain 248b
Originally reported by Yitzchak Scott-Thoennes at http://bugs.mysql.com/bug.php?id=46122 Description: See https://rt.cpan.org/Public/Bug/Display.html?id=45616 How to repeat: cpan DBD::mysql Suggested fix: Adjust order of code in the test script.
Subject: dbdmysql40blobs.patch
--- DBD-mysql-4.012/t/40blobs.t.orig 2009-07-12 13:34:35.000000000 -0700 +++ DBD-mysql-4.012/t/40blobs.t 2009-07-12 13:35:52.000000000 -0700 @@ -29,20 +29,20 @@ } my $dbh; -my $charset= 'DEFAULT CHARSET=utf8'; 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; +my $charset= 'DEFAULT CHARSET=utf8'; +if ($dbh->get_info($GetInfoType{SQL_DBMS_VER}) lt "4.1") { + $charset= ''; +} + my $size= 128; ok $dbh->do("DROP TABLE IF EXISTS $table"), "Drop table if exists $table";
Closing because it is a duplicate of https://rt.cpan.org/Ticket/Display.html?id=45616


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.