Fix vcs test code. Closes: #651976

[code/myrepos.git] / mr

diff --git a/mr b/mr
index 8883aab95464961498dc0c12adf5deece979299e..23178a5c2bb03e3528aceae6f366fcdeb8f8eb1c 100755 (executable)
--- a/mr
+++ b/mr
@@ -627,7 +627,7 @@ sub vcs_test {
                        }
                        next;
                }
-               my $vcs=$vcs_test =~ /(.*)_test/;
+               my ($vcs)=$vcs_test =~ /(.*)_test/;
                $test="my_$vcs_test() {\n$config{$topdir}{$subdir}{$vcs_test}\n}\n".$test;
                $test.="if my_$vcs_test; then echo $vcs; fi\n";
        }