From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 22 Jan 2012 18:25:23 +0000 (+0000)
Subject: fix some create messages; before terminology change
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=topbloke.git;a=commitdiff_plain;h=faf0b5afe4a557285034a0230bb294ee49b34cdb;hp=b627c81178dd32a7bed6d3606633b5210ae15a56

fix some create messages; before terminology change
---

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