unpack: adapt to new libarchive methods

[pmg-api.git] / src / PMG / Unpack.pm

diff --git a/src/PMG/Unpack.pm b/src/PMG/Unpack.pm
index 5de786cacdedc17ac7139abb47328fe82666ee70..d4fe4547ba9341a23a6841f9e24b756ed65605df 100755 (executable)
--- 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;