From d722445812551857f94f135067d19fde4bdac0ca 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 b05e76a7..5e2d924c 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;