remove unused variable in PAUSE::may_overwrite_file

andk · Jan 2, 2025 · 30ceb5f · 30ceb5f
1 parent 418347a
commit 30ceb5f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;