From ccefe6c13bdb719ce55dc21f3a796d5ec71e6b9e Mon Sep 17 00:00:00 2001
From: Petr Danecek <pd3@sanger.ac.uk>
Date: Wed, 7 Dec 2022 11:01:23 +0000
Subject: [PATCH] Remove variable redeclaration warnings from perl test script

---
 test/test.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/test.pl b/test/test.pl
index a529cfd1a..a1fa6a7e6 100755
--- a/test/test.pl
+++ b/test/test.pl
@@ -399,11 +399,11 @@ sub test_bgzip {
     passed($opts,$test);
 
     # Round-trip test of text in binary mode
-    my $test = sprintf('%s %2s threads', 'bgzip text mode round-trip',
+    $test = sprintf('%s %2s threads', 'bgzip text mode round-trip',
                        $threads ? $threads : 'no');
     print "$test: ";
-    my $c = "$$opts{bin}/bgzip $at --binary -i -I '$index' < '$data' > '$compressed'";
-    my ($ret, $out) = _cmd($c);
+    $c = "$$opts{bin}/bgzip $at --binary -i -I '$index' < '$data' > '$compressed'";
+    ($ret, $out) = _cmd($c);
     if ($ret) {
         failed($opts, $test, "non-zero exit from $c");
         return;