diff options
Diffstat (limited to 'dgit')
| -rwxr-xr-x | dgit | 14 |
1 files changed, 12 insertions, 2 deletions
@@ -75,7 +75,8 @@ our $tagformat; our $tagformatfn; our %forceopts = map { $_=>0 } - qw(unrepresentable unsupported-source-format); + qw(unrepresentable unsupported-source-format + dsc-changes-mismatch); our %format_ok = map { $_=>1 } ("1.0","3.0 (native)","3.0 (quilt)"); @@ -237,6 +238,14 @@ sub forceable_fail ($$) { print STDERR "warning: overriding problem due to --force:\n". $msg; } +sub forceing ($) { + my ($forceoptsl) = @_; + my @got = grep { $forceopts{$_} } @$forceoptsl; + return 0 unless @got; + print STDERR + "warning: skipping checks or functionality due to --force-$got[0]\n"; +} + sub no_such_package () { print STDERR "$us: package $package does not exist in suite $isuite\n"; exit 4; @@ -3291,7 +3300,8 @@ END # Check that changes and .dsc agree enough $changesfile =~ m{[^/]*$}; - files_compare_inputs($dsc, parsecontrol($changesfile,$&)); + files_compare_inputs($dsc, parsecontrol($changesfile,$&)) + unless forceing [qw(dsc-changes-mismatch)]; # Checks complete, we're going to try and go ahead: |