dgit: Dgit handling: Honour --no-chase-dsc-distro

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

diff --git a/dgit b/dgit
index ee1101da23a4521f3d9d5ac33e59b0b2c37cd248..d771ce1067d20973b98e31335881ad78d1526707 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -78,7 +78,7 @@ our $patches_applied_dirtily = 00;
 our $tagformat_want;
 our $tagformat;
 our $tagformatfn;
 our $tagformat_want;
 our $tagformat;
 our $tagformatfn;

-our $chase_dsc_distro=1; #xxx configurable
+our $chase_dsc_distro=1;

 
 our %forceopts = map { $_=>0 }
     qw(unrepresentable unsupported-source-format
 
 our %forceopts = map { $_=>0 }
     qw(unrepresentable unsupported-source-format


@@ -6277,6 +6277,9 @@ sub parseopts () {
            } elsif (m/^--no-rm-on-error$/s) {
                push @ropts, $_;
                $rmonerror = 0;
            } elsif (m/^--no-rm-on-error$/s) {
                push @ropts, $_;
                $rmonerror = 0;

+           } elsif (m/^--no-chase-dsc-distro$/s) {
+               push @ropts, $_;
+               $chase_dsc_distro = 0;

            } elsif (m/^--overwrite$/s) {
                push @ropts, $_;
                $overwrite_version = '';
            } elsif (m/^--overwrite$/s) {
                push @ropts, $_;
                $overwrite_version = '';