From: Joey Hess Date: Tue, 13 Dec 2011 20:21:11 +0000 (-0400) Subject: Fix vcs test code. Closes: #651976 X-Git-Url: https://git.madduck.net/code/myrepos.git/commitdiff_plain/ee960e46dc17f110fbf867df3708f36155a1c337?hp=5407b2658a665845476984f7645317565e397394 Fix vcs test code. Closes: #651976 Have I ever mentioned how bad perl's ($var)=$var=~// syntax is? --- 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 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"; }