Remove variable redeclaration warnings from perl test script

samtools · Dec 14, 2022 · 6ed4e1c · 6ed4e1c
1 parent a9421b7
commit 6ed4e1c
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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;