No arounds - always use plugin digest registered hook in extract

PerlAlien · Jul 12, 2023 · c52f749 · c52f749
1 parent cfdc0e7
commit c52f749
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git 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
@@ -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;