X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?p=dgit.git;a=blobdiff_plain;f=dgit;h=53ccd724b821a9dcd59355f08011ff804f4951d7;hp=548a25bddf7badb5a8390ef2374450535e43f581;hb=dce35223f0ded3dfaa1acb4a6ad62d8ab840ddf9;hpb=045ec681a42fd823280cdec86a177309ddd741f0 diff --git a/dgit b/dgit index 548a25bd..53ccd724 100755 --- a/dgit +++ b/dgit @@ -34,6 +34,7 @@ use POSIX; use IPC::Open2; use Digest::SHA; use Digest::MD5; +use List::Util qw(any); use List::MoreUtils qw(pairwise); use Debian::Dgit; @@ -513,7 +514,7 @@ our %defcfg = ('dgit.default.distro' => 'debian', 'dgit.default.ssh' => 'ssh', 'dgit.default.archive-query' => 'madison:', 'dgit.default.sshpsql-dbname' => 'service=projectb', - 'dgit.default.dgit-tag-format' => 'old,new', + 'dgit.default.dgit-tag-format' => 'old,new,maint', 'dgit-distro.debian.archive-query' => 'ftpmasterapi:', 'dgit-distro.debian.git-check' => 'url', 'dgit-distro.debian.git-check-suffix' => '/info/refs', @@ -1161,7 +1162,7 @@ sub select_tagformat () { die 'bug' if $tagformatfn && $tagformat_want; # ... $tagformat_want assigned after previous select_tagformat - my (@supported) = access_cfg_tagformats(); + my (@supported) = grep { $_ ne 'maint' } access_cfg_tagformats(); printdebug "select_tagformat supported @supported\n"; $tagformat_want //= [ $supported[0], "distro access configuration", 0 ]; @@ -2147,8 +2148,6 @@ END } } - die 'xxx fast forward (should not depend on quilt mode, but will always be needed if we did $split_brain)' if $split_brain; - check_not_dirty(); changedir $ud; progress "checking that $dscfn corresponds to HEAD"; @@ -2247,7 +2246,8 @@ END my @pushrefs = $forceflag."HEAD:".rrref(); foreach my $tw (@tagwants) { my $view = $tw->{View}; - next unless $view eq 'dgit'; + next unless $view eq 'dgit' + or any { $_ eq $view } access_cfg_tagformats(); push @pushrefs, $forceflag."refs/tags/$tw->{Tag}"; }