From 30ceb5f03ef1468bf20c64cd461082a3ffb87014 Mon Sep 17 00:00:00 2001
From: Aristotle Pagaltzis <pagaltzis@gmx.de>
Date: Mon, 6 May 2024 21:34:32 +0200
Subject: [PATCH] remove unused variable in PAUSE::may_overwrite_file

---
 lib/PAUSE.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/PAUSE.pm b/lib/PAUSE.pm
index d46dd69d4..c6baecea4 100644
--- a/lib/PAUSE.pm
+++ b/lib/PAUSE.pm
@@ -538,7 +538,7 @@ sub isa_regular_perl {
 sub may_overwrite_file {
   my ($filename) = @_;
 
-  my $is_archive = $filename =~ s/\.(gz|bz2)$//i;
+  $filename =~ s/\.(gz|bz2)$//i;
 
   return 1 if $filename =~ /readme$/i;