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);
printf "creating %s\n", $newbranch;
+
+setup_config();
+