@@ -, +, @@ --- C4/Installer/PerlDependencies.pm | 5 ----- t/db_dependent/OAI/Server.t | 20 +++++++++++++++----- 2 files changed, 15 insertions(+), 10 deletions(-) --- a/C4/Installer/PerlDependencies.pm +++ a/C4/Installer/PerlDependencies.pm @@ -782,11 +782,6 @@ our $PERL_DEPS = { 'required' => '1', 'min_ver' => '1.10', }, - 'Capture::Tiny' => { - 'usage' => 'Core', - 'required' => '0', - 'min_ver' => '0.18', - }, }; 1; --- a/t/db_dependent/OAI/Server.t +++ a/t/db_dependent/OAI/Server.t @@ -25,7 +25,6 @@ use Test::More tests => 13; use Test::MockModule; use Test::Warn; use DateTime; -use Capture::Tiny ':all'; use XML::Simple; use t::lib::Mocks; @@ -74,8 +73,14 @@ t::lib::Mocks::mock_preference('OAI-PMH:MaxCount', 3); t::lib::Mocks::mock_preference('OAI-PMH:DeletedRecord', 'persistent'); %param = ( verb => 'ListMetadataFormats' ); -my ($response) = capture { Koha::OAI::Server::Repository->new(); }; -$response = XMLin($response); +my $response; +{ + my $stdout; + local *STDOUT; + open STDOUT, '>', \$stdout; + Koha::OAI::Server::Repository->new(); + $response = XMLin($stdout); +} my $now = DateTime->now . 'Z'; my $expected = { request => 'http://localhost', @@ -101,8 +106,13 @@ my $expected = { is_deeply($response, $expected, "ListMetadataFormats"); %param = ( verb => 'ListIdentifiers' ); -($response) = capture { Koha::OAI::Server::Repository->new(); }; -$response = XMLin($response); +{ + my $stdout; + local *STDOUT; + open STDOUT, '>', \$stdout; + Koha::OAI::Server::Repository->new(); + $response = XMLin($stdout); +} $now = DateTime->now . 'Z'; $expected = { request => 'http://localhost', --