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

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 541e8f60e2228fc9e75e816dade4b9673afdf107..941a14b93630d198172570a2a943d5ea29874d11 100755 (executable)
--- 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;
 }