From faf0b5afe4a557285034a0230bb294ee49b34cdb Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 22 Jan 2012 18:25:23 +0000
Subject: [PATCH] fix some create messages; before terminology change

---
 tb-create.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tb-create.pl b/tb-create.pl
index f56764b..2b45680 100755
--- 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
 
-- 
2.30.2