Remove variable redeclaration warnings from perl test script

pd3 · Dec 7, 2022 · ccefe6c · ccefe6c
1 parent 59f727a
commit ccefe6c
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;