From ee960e46dc17f110fbf867df3708f36155a1c337 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Tue, 13 Dec 2011 16:21:11 -0400
Subject: [PATCH 1/1] Fix vcs test code. Closes: #651976

Have I ever mentioned how bad perl's ($var)=$var=~// syntax is?
---
 debian/changelog | 6 ++++++
 mr               | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/debian/changelog b/debian/changelog
index 9e255d7..74d9253 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+mr (1.08) UNRELEASED; urgency=low
+
+  * Fix vcs test code. Closes: #651976
+
+ -- Joey Hess <joeyh@debian.org>  Tue, 13 Dec 2011 16:20:26 -0400
+
 mr (1.07) unstable; urgency=low
 
   * Added support for vcsh, enable with: include = cat /usr/share/mr/vcsh
diff --git a/mr b/mr
index 8883aab..23178a5 100755
--- 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";
 	}
-- 
2.39.5