equal
deleted
inserted
replaced
9 -eval {$dbh= DBI->connect('DBI:mysql:', $test_user, $test_password, |
9 -eval {$dbh= DBI->connect('DBI:mysql:', $test_user, $test_password, |
10 +eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password, |
10 +eval {$dbh= DBI->connect($test_dsn, $test_user, $test_password, |
11 { RaiseError => 1, PrintError => 1, AutoCommit => 0 });}; |
11 { RaiseError => 1, PrintError => 1, AutoCommit => 0 });}; |
12 if ($@) { |
12 if ($@) { |
13 diag $@; |
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; |
|