dgit: vcs-git handling: Strip [...] a la Haskell Team

The final syntax of this is not yet agreed but this regexp ought to do
the right thing in all reasonable cases.  (Ie, no [ ] inside the [ ].)

See also #932696 against policy, which is discussing the spec.

Closes: #932699
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

1 files changed, 1 insertions, 0 deletions

diff --git a/dgit b/dgit
index 541e8f6..941a14b 100755
--- a/dgit
+++ b/dgit
@@ -3853,6 +3853,7 @@ sub vcs_git_url_of_ctrl ($) {
     my $vcsgiturl = $ctrl->{'Vcs-Git'};
     if (length $vcsgiturl) {
 	$vcsgiturl =~ s/\s+-b\s+\S+//g;
+	$vcsgiturl =~ s/\s+\[[^][]*\]//g;
     }
     return $vcsgiturl;
 }