equal
deleted
inserted
replaced
|
1 https://rt.cpan.org/Public/Bug/Display.html?id=112072 |
|
2 |
|
3 --- DBD-mysql-4.033/t/05dbcreate.t 2016-02-13 13:29:56.467130717 -0800 |
|
4 +++ DBD-mysql-4.033/t/05dbcreate.t 2016-02-13 13:23:45.371688976 -0800 |
|
5 @@ -10,7 +10,7 @@ use lib 't', '.'; |
|
6 require 'lib.pl'; |
|
7 |
|
8 my $dbh; |
|
9 -eval {$dbh= DBI->connect('DBI:mysql:', $test_user, $test_password, |
|
10 +eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password, |
|
11 { RaiseError => 1, PrintError => 1, AutoCommit => 0 });}; |
|
12 if ($@) { |
|
13 diag $@; |
|
14 --- DBD-mysql-4.033/t/87async.t 2016-02-13 13:37:19.948093572 -0800 |
|
15 +++ DBD-mysql-4.033/t/87async.t 2016-02-13 13:36:58.066381499 -0800 |
|
16 @@ -1,7 +1,6 @@ |
|
17 use strict; |
|
18 use warnings; |
|
19 |
|
20 -use Test::Deep; |
|
21 use Test::More; |
|
22 use DBI; |
|
23 use DBI::Const::GetInfoType; |
|
24 @@ -11,10 +10,10 @@ use vars qw($test_dsn $test_user $test_p |
|
25 use lib 't', '.'; |
|
26 require 'lib.pl'; |
|
27 |
|
28 -eval { use Test::Deep }; |
|
29 -SKIP: { |
|
30 - if ($!) { |
|
31 - skip "Test::Deep is not installed!"; |
|
32 +BEGIN { |
|
33 + eval { require Test::Deep }; |
|
34 + if ($@) { |
|
35 + plan skip_all => 'Test::Deep is not installed!'; |
|
36 } |
|
37 } |
|
38 my $dbh; |