From c52f749a3f41db6502c59535cec05dda5b2f20c0 Mon Sep 17 00:00:00 2001
From: Roy Storey <kiwiroy@users.noreply.github.com>
Date: Wed, 12 Jul 2023 23:42:36 +1200
Subject: [PATCH] No arounds - always use plugin digest registered hook in
 extract

---
 lib/Alien/Build.pm                        | 1 +
 t/alien_build_plugin_extract_archivetar.t | 1 +
 2 files changed, 2 insertions(+)

diff --git a/lib/Alien/Build.pm b/lib/Alien/Build.pm
index 4894965e..0b111911 100644
--- a/lib/Alien/Build.pm
+++ b/lib/Alien/Build.pm
@@ -1669,6 +1669,7 @@ sub extract
           path     => $archive,
           tmp      => 0,
         };
+        local $self->meta->{around}{check_digest};
         $checked_digest = $self->meta->call_hook( check_digest => $self, $file, $algo, $expected )
       }
       if(!defined $detail->{protocol})
diff --git a/t/alien_build_plugin_extract_archivetar.t b/t/alien_build_plugin_extract_archivetar.t
index b80849c2..974f5244 100644
--- a/t/alien_build_plugin_extract_archivetar.t
+++ b/t/alien_build_plugin_extract_archivetar.t
@@ -137,6 +137,7 @@ subtest 'archive' => sub {
         use alienfile;
         plugin 'Test::Mock',
           check_digest => 1;
+        meta->around_hook(check_digest => sub { die "FAIL" });
       };
       my $meta = $build->meta;