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;