wip; tidy; check no unwanted metadata

[topbloke.git] / tb-create.pl

diff --git a/tb-create.pl b/tb-create.pl
index f0bd5635128f1a79cc3cfda8fe185770610579a3..79d42749015088e8e6c883348733bad87dcbc7af 100755 (executable)
--- a/tb-create.pl
+++ b/tb-create.pl
@@ -41,6 +41,9 @@ if (!defined $spec->{Date}) {
 
 length($spec->{Date})==18 or die "partial date specified, not supported\n";
 
+check_no_unwanted_metadata('HEAD')
+    if $current->{Kind} ne 'tip';
+
 my $newbranch = "$spec->{Email}\@$spec->{Domain}/$spec->{Date}/$spec->{Nick}";
 
 $newbranch = run_git_1line(qw(check-ref-format --print), $newbranch);
@@ -48,3 +51,4 @@ $newbranch = run_git_1line(qw(check-ref-format --print), $newbranch);
 printf "creating %s\n", $newbranch;
 
 setup_config();
+