diff options
Diffstat (limited to 'dgit')
-rwxr-xr-x | dgit | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -53,7 +53,7 @@ use Debian::Dgit; our $our_version = 'UNRELEASED'; ###substituted### our $absurdity = undef; ###substituted### -our @rpushprotovsn_support = qw(4); # 4 is new tag format +our @rpushprotovsn_support = qw(4 5); # 5 drops tag format specification our $protovsn; our $cmd; @@ -465,7 +465,7 @@ sub branch_is_gdr ($) { # # > param head DGIT-VIEW-HEAD # > param csuite SUITE -# > param tagformat new # $protovsn >= 4 +# > param tagformat new # $protovsn == 4 # > param maint-view MAINT-VIEW-HEAD # # > param buildinfo-filename P_V_X.buildinfo # zero or more times @@ -4632,7 +4632,7 @@ ENDT responder_send_command("param head $dgithead"); responder_send_command("param csuite $csuite"); responder_send_command("param isuite $isuite"); - responder_send_command("param tagformat new"); + responder_send_command("param tagformat new"); # needed in $protovsn==4 if (defined $maintviewhead) { responder_send_command("param maint-view $maintviewhead"); } @@ -5211,7 +5211,7 @@ sub i_want_signed_tag { my $maintview = $i_param{'maint-view'}; die if defined $maintview && $maintview =~ m/[^0-9a-f]/; - if ($protovsn >= 4) { + if ($protovsn == 4) { my $p = $i_param{'tagformat'} // '<undef>'; $p eq 'new' or badproto \*RO, "tag format mismatch: $p vs. new"; |