dgit (0.22~experimental1) experimental; urgency=low
- * New git-check and git-create methods "true" which are no-ops.
* Bring forward push of the version tag ref so it happens alongside
the push of the suite branch ref.
+ * Include canonicalised suite name in signed tag message.
+
+ * New git-check and git-create methods "true" which are no-ops.
* test-dummy-drs `distro': for testing dgit-repos-server. WIP.
* dgit-repos-server: WIP
+ * New script tests/using-intree for running tests on the source tree.
+
* Switch to using dgit@git.debian.org (and dgit-repos-server) by
default.
- * New script tests/using-intree for running tests on the source tree.
--
our %format_ok = map { $_=>1 } ("1.0","3.0 (native)","3.0 (quilt)");
+our $suite_re = '[-+.0-9a-z]+';
+
our (@git) = qw(git);
our (@dget) = qw(dget);
our (@dput) = qw(dput);
tag $tag
tagger $authline
-$package release $cversion for $clogsuite [dgit]
+$package release $cversion for $clogsuite ($csuite) [dgit]
END
close TO or die $!;
responder_send_file('changes',$changesfile);
responder_send_command("param head $head");
+ responder_send_command("param csuite $csuite");
my $tfn = sub { ".git/dgit/tag$_[0]"; };
my $tagobjfn;
sub i_want_signed_tag {
printdebug Dumper(\%i_param, $i_dscfn);
defined $i_param{'head'} && defined $i_dscfn && defined $i_clogp
+ && defined $i_param{'csuite'}
or badproto \*RO, "premature desire for signed-tag";
my $head = $i_param{'head'};
die if $head =~ m/[^0-9a-f]/ || $head !~ m/^../;
+ die unless $i_param{'csuite'} =~ m/^$suite_re$/;
+ $csuite = $&;
push_parse_dsc $i_dscfn, 'remote dsc', $i_version;
my $tagobjfn =
}
}
$!=0; $_=<T>; defined or die $!;
- m/^($package_re) release (\S+) for (\S+) \[dgit\]$/ or die;
+ m/^($package_re) release (\S+) for (\S+) \[dgit\]$/ or
+ reject "tag message not in expected format";
die unless $1 eq $package;
$version = $2;