From 1b0f7f1138fed1a61bb269fa8a066efdaa7aef11 Mon Sep 17 00:00:00 2001
From: Johannes Schauer Marin Rodrigues <josch@mister-muffin.de>
Date: Fri, 7 Jan 2022 14:41:22 +0100
Subject: [PATCH] make $@ local, so we don't print "Can't locate Undefined
 subroutine &Devel::Cover::get_coverage called" in other parts where we
 evaluate $@

---
 mmdebstrap | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/mmdebstrap b/mmdebstrap
index d71b9d0..3734f5e 100755
--- a/mmdebstrap
+++ b/mmdebstrap
@@ -102,7 +102,13 @@ my @devfiles = (
 #   3 -> debug output
 my $verbosity_level = 1;
 
-my $is_covering = !!(eval { Devel::Cover::get_coverage() });
+my $is_covering = 0;
+{
+    # make $@ local, so we don't print "Undefined subroutine called"
+    # in other parts where we evaluate $@
+    local $@ = '';
+    $is_covering = !!(eval { Devel::Cover::get_coverage() });
+}
 
 # the reason why Perl::Critic warns about this is, that it suspects that the
 # programmer wants to implement a test whether the terminal is interactive or