components/perl_modules/dbd-mysql/patches/01_fix_test.patch
author Vladimir Marek <Vladimir.Marek@oracle.com>
Mon, 21 Nov 2016 15:44:24 +0100
changeset 7393 f4f5642f74fa
permissions -rw-r--r--
25119027 Update DBD::mysql to 4.0.40 25119030 problem in PERL-MOD/DBD-MYSQL

https://rt.cpan.org/Public/Bug/Display.html?id=118837

--- DBD-mysql-4.038/t/05dbcreate.t	st říj  5 14:44:00 2016
+++ DBD-mysql-4.037/t/05dbcreate.t	po říj  3 08:52:35 2016
@@ -10,7 +10,7 @@
 require 'lib.pl';
 
 # remove database from DSN
-$test_dsn =~ s/^DBI:mysql:([^:]+)(:?)/DBI:mysql:$2/;
+$test_dsn =~ s/^DBI:mysql:([^:;]+)([:;]?)/DBI:mysql:$2/;
 
 my $dbh;
 eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password,