From e0a8ca3861ad1a8b84bbfcadeabe51822a19f626 Mon Sep 17 00:00:00 2001 From: Jens Steidl <Jens.Steidl@slub-dresden.de> Date: Fri, 9 Apr 2021 13:43:08 +0200 Subject: [PATCH] - use more current Archive::BagIt interface --- bin/slubsipbuilderbagit.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bin/slubsipbuilderbagit.pl b/bin/slubsipbuilderbagit.pl index 758225a..8649b55 100644 --- a/bin/slubsipbuilderbagit.pl +++ b/bin/slubsipbuilderbagit.pl @@ -13,7 +13,7 @@ # DESCRIPTION: A CLI tool to create a valid SIP for SLUBArchiv # # REQUIREMENTS: perl install version 5.28 or higher, as all necessary modules required -# install Archive::BagIt::Base 0.065 or higher +# install Archive::BagIt 0.070 or higher # (If fails than you need extra "sudo apt install libperl-dev libperl5.28") # For Windows users: check if UTF-8 flag set at Systemsteuerung/Zeit und Region/Region/Verwaltung/Gebietsschema ändern # @@ -55,7 +55,7 @@ use utf8; package SLUB::LZA::SIPBuilderBagIt; use utf8; use feature 'say'; - use Archive::BagIt::Base; + use Archive::BagIt; use Carp; use Data::Printer; use Encode; @@ -379,7 +379,7 @@ package SLUB::LZA::SIPBuilderBagIt; my $refAddBagInfo = $_[1]; # ref to array of hashes # construct bag - my $oArchiveBagIt = Archive::BagIt::Base->make_bag($bagPath); + my $oArchiveBagIt = Archive::BagIt->make_bag($bagPath); $oArchiveBagIt->bag_info($refAddBagInfo); $oArchiveBagIt->store(); print_scalar_data("", "SUCCESS: SLUB SIP at $bagPath build successfully!", "", "green"); -- GitLab