fix some create messages; before terminology change

diff --git a/tb-create.pl b/tb-create.pl
index f56764bc1a8c83678c65ab3488f09140279542aa..2b456807d23fc2633925d04d169476b2568cc46e 100755 (executable)
--- a/tb-create.pl
+++ b/tb-create.pl
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+# usage: tb-create <branch-spec>
 
 use warnings;
 use strict;
@@ -102,7 +103,7 @@ if (lstat '.topbloke') {
 my $baseref = "refs/topbloke-bases/$newbranch";
 create_and_switch($baseref);
 
-run_git(qw(update-ref -m), "tb-create base", $baseref, 'HEAD');
+run_git(qw(update-ref -m), "tb-create base $newbranch", $baseref, 'HEAD');
 run_git(qw(symbolic-ref HEAD), $baseref);
 
 meta_and_stage('msg', "# not applicable\n");
@@ -114,7 +115,7 @@ if ($current->{Kind} eq 'foreign') {
     meta_and_stage('pflags', '');
 }
 
-run_git(qw(commit -q -m), "create base branch $spec->{Nick}\n$newbranch\n");
+run_git(qw(commit -q -m), "create base branch $newbranch");
 
 #----- create the tip branch