From 2e08e3c97b6410ac0b6d985c99ba7ba3722d21f1 Mon Sep 17 00:00:00 2001 From: Stoiko Ivanov Date: Mon, 7 Jun 2021 18:55:22 +0000 Subject: [PATCH] unpack: adapt to new libarchive methods This patch changes the deprecated method used from libarchive-perl. It needs a versioned dependency bump on libarchive-perl (>= 3.4.0). Signed-off-by: Stoiko Ivanov --- debian/control | 4 ++-- src/PMG/Unpack.pm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/debian/control b/debian/control index 92f25db..74953ef 100644 --- a/debian/control +++ b/debian/control @@ -3,7 +3,7 @@ Section: perl Priority: optional Maintainer: Proxmox Support Team Build-Depends: debhelper (>= 12~), - libarchive-perl, + libarchive-perl (>= 3.4.0-1), libarchive-zip-perl, libauthen-pam-perl, libcompress-bzip2-perl, @@ -43,7 +43,7 @@ Depends: apt, fetchmail, fonts-font-awesome, libapt-pkg-perl, - libarchive-perl, + libarchive-perl (>= 3.4.0-1), libarchive-zip-perl, libauthen-pam-perl, libcompress-bzip2-perl, diff --git a/src/PMG/Unpack.pm b/src/PMG/Unpack.pm index 5de786c..d4fe454 100755 --- a/src/PMG/Unpack.pm +++ b/src/PMG/Unpack.pm @@ -681,7 +681,7 @@ sub unpack_tar { die "unable to create LibArchive object" if !$a; LibArchive::archive_read_support_format_all ($a); - LibArchive::archive_read_support_compression_all ($a); + LibArchive::archive_read_support_filter_all ($a); eval { run_with_timeout ($timeout, sub { @@ -785,7 +785,7 @@ sub unpack_tar { my $err = $@; LibArchive::archive_read_close($a); - LibArchive::archive_read_finish($a); + LibArchive::archive_read_free($a); die $err if $err; -- 2.39.2