Skip to content
Snippets Groups Projects
Verified Commit e51cd159 authored by Andreas Romeyke's avatar Andreas Romeyke
Browse files

- fixed dependency, replaced Archive::BagIt::Fast with Archive::BagIt, because...

- fixed dependency, replaced Archive::BagIt::Fast with Archive::BagIt, because IO::AIO has problems under Perl 5.36
parent ea054de8
No related branches found
No related tags found
No related merge requests found
Pipeline #6997 failed
...@@ -64,7 +64,6 @@ RUN mkdir -p "$EXTLIB" ...@@ -64,7 +64,6 @@ RUN mkdir -p "$EXTLIB"
RUN mkdir -p "$PERL_CPANM_HOME" RUN mkdir -p "$PERL_CPANM_HOME"
RUN cpanm -L "$EXTLIB" --notest --verbose --no-interactive \ RUN cpanm -L "$EXTLIB" --notest --verbose --no-interactive \
Archive::BagIt \ Archive::BagIt \
Archive::BagIt::Fast \
IO::Prompt::Tiny \ IO::Prompt::Tiny \
Pod::Autopod \ Pod::Autopod \
Test::Retry \ Test::Retry \
......
...@@ -6,7 +6,7 @@ use SLUB::LZA::TA::Archivematica::Elasticsearch; ...@@ -6,7 +6,7 @@ use SLUB::LZA::TA::Archivematica::Elasticsearch;
use SLUB::LZA::TA::Archivematica::Elasticsearch::PrepareQuery; use SLUB::LZA::TA::Archivematica::Elasticsearch::PrepareQuery;
use SLUB::LZA::TA::Output; 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 Date::Calc qw(Date_to_Time Today Add_Delta_YM Add_Delta_YMD Day_of_Week);
use List::Util qw(sample); use List::Util qw(sample);
use namespace::autoclean -except => qr{SLUB::LZA::TA::.*}; use namespace::autoclean -except => qr{SLUB::LZA::TA::.*};
...@@ -169,7 +169,7 @@ sub _check_aip ($sample, $opt) { ...@@ -169,7 +169,7 @@ sub _check_aip ($sample, $opt) {
$line->{"localPath$tries"} = $remapped; $line->{"localPath$tries"} = $remapped;
} }
if (-d $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'); $bag->use_plugins('Archive::BagIt::Plugin::Algorithm::SHA512');
$is_valid = $bag->verify_bag({ report_all_errors => 1 }); $is_valid = $bag->verify_bag({ report_all_errors => 1 });
if (!$is_valid) {$is_valid = 0;} if (!$is_valid) {$is_valid = 0;}
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment