Strip `-b <branch>' from contents of Vcs-Git header, when setting up the vcs-git...

diff --git a/debian/changelog b/debian/changelog
index e0764f5523b9cb9dcd9236277920cc23bee22df1..42b2fd61563afc17ec4a3ba7cb6972cdb6f3b9ad 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -40,6 +40,9 @@ dgit (0.23~) unstable; urgency=low
 
   * Better documentation for quilt series handling.
 
+  * Strip `-b <branch>' from contents of Vcs-Git header, when setting up
+    the vcs-git remote.  Closes:#759374.
+
  --
 
 dgit (0.22.1) unstable; urgency=high

diff --git a/dgit b/dgit
index f6324e02a59a3a8cc6b363b455c4ca3f413ca32a..d936acdfecb30da0aea88a5f808d4f594855acde 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1413,6 +1413,7 @@ sub clone ($) {
     }
     fetch_from_archive() or no_such_package;
     my $vcsgiturl = $dsc->{'Vcs-Git'};
+    $vcsgiturl =~ s/\s+-b\s+\S+//g;
     if (length $vcsgiturl) {
        runcmd @git, qw(remote add vcs-git), $vcsgiturl;
     }