Skip to content
Snippets Groups Projects
Commit e0a8ca38 authored by Jens Steidl's avatar Jens Steidl :baby_chick:
Browse files

- use more current Archive::BagIt interface

parent ca646c68
No related branches found
No related tags found
No related merge requests found
......@@ -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");
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment