- my $nm = wf_start('.topbloke/msg');
- my $author = run_git_1line(qw(var GIT_AUTHOR_IDENT));
- $author =~ s/ \d+ [-+]\d+$//;
- wf($nm, "From: $author\n");
- foreach my $h (qw(To CC BCC)) {
- my $estatus;
- run_git(\$estatus, sub { wf($nm, "$h: $_") or die $!; },
- qw(config), "topbloke.".lc $h);
- die "$h $estatus" unless $estatus==0 || $estatus==256;
- }
- $subjprefix = git_config('topbloke.subjectprefix', '');
- wf($n, <END) or die $!;
-Subject: [${subprefix}PATCH] $spec->{Nick}
+my $tipref = "refs/topbloke-tips/$newbranch";
+create_and_switch($tipref);
+
+my $nm = wf_start('.topbloke/msg');
+wf($nm, "From: $author\n");
+foreach my $h (qw(To CC BCC)) {
+ my $estatus;
+ run_git(\$estatus, sub { wf($nm, "$h: $_") or die $!; },
+ qw(config), "topbloke.".lc $h);
+ die "$h $estatus" unless $estatus==0 || $estatus==256;
+}
+wf($nm, <<END) or die $!;
+Subject: [${subjprefix}PATCH] $spec->{Nick}