diff --git a/gitlab-ci/Dockerfile b/gitlab-ci/Dockerfile index 32084a5d6492f395e4648a43a34a17692c0dcf49..e0f411eaea945253e1cd32d70f120584024acc60 100644 --- a/gitlab-ci/Dockerfile +++ b/gitlab-ci/Dockerfile @@ -64,7 +64,6 @@ RUN mkdir -p "$EXTLIB" RUN mkdir -p "$PERL_CPANM_HOME" RUN cpanm -L "$EXTLIB" --notest --verbose --no-interactive \ Archive::BagIt \ - Archive::BagIt::Fast \ IO::Prompt::Tiny \ Pod::Autopod \ Test::Retry \ diff --git a/lib/SLUB/LZA/TA/Command/sample_testing.pm b/lib/SLUB/LZA/TA/Command/sample_testing.pm index a216b13b4f23cff71329c34ea3bd7bd908e5fa22..f62ec18504d8f738b54f1085ddc3e5bf3c4edebf 100644 --- a/lib/SLUB/LZA/TA/Command/sample_testing.pm +++ b/lib/SLUB/LZA/TA/Command/sample_testing.pm @@ -6,7 +6,7 @@ use SLUB::LZA::TA::Archivematica::Elasticsearch; use SLUB::LZA::TA::Archivematica::Elasticsearch::PrepareQuery; use SLUB::LZA::TA::Output; -use Archive::BagIt::Fast; +use Archive::BagIt; use Date::Calc qw(Date_to_Time Today Add_Delta_YM Add_Delta_YMD Day_of_Week); use List::Util qw(sample); use namespace::autoclean -except => qr{SLUB::LZA::TA::.*}; @@ -169,7 +169,7 @@ sub _check_aip ($sample, $opt) { $line->{"localPath$tries"} = $remapped; } if (-d $remapped) { - my $bag = Archive::BagIt::Fast->new($remapped); + my $bag = Archive::BagIt->new($remapped); $bag->use_plugins('Archive::BagIt::Plugin::Algorithm::SHA512'); $is_valid = $bag->verify_bag({ report_all_errors => 1 }); if (!$is_valid) {$is_valid = 0;}