diff options
-rwxr-xr-x | git-debrebase | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/git-debrebase b/git-debrebase index 8826141..599fe15 100755 --- a/git-debrebase +++ b/git-debrebase @@ -503,7 +503,7 @@ sub keycommits ($;$$$) { # $dgitimport->("unclean-$tagsfx", $msg) # is callled for each situation or commit that # wouldn't be found in a laundered branch - # $furniture is forfurniture commits such as might be found on an + # $furniture is for furniture commits such as might be found on an # interchange branch (pseudomerge, d/patches, changelog) # $trouble is for things whnich prevent the return of # anchor and breakwater information; if that is ignored, @@ -1065,10 +1065,10 @@ sub stitch ($$$$$) { fresh_workarea(); my $new_head = make_commit [ $old_head, $ffq_prev ], [ 'Declare fast forward / record previous work', - "[git-debrebase pseudomerge: stitch$prose]", + "[git-debrebase pseudomerge: $prose]", ]; push @deferred_updates, "update $gdrlast $new_head $git_null_obj"; - update_head $old_head, $new_head, "stitch"; + update_head $old_head, $new_head, "stitch: $prose"; } sub cmd_new_upstream_v0 () { @@ -1282,7 +1282,7 @@ sub cmd_breakwater () { } sub cmd_stitch () { - my $prose = ''; + my $prose = 'stitch'; GetOptions('prose=s', \$prose) or die badusage("bad options to stitch"); badusage "no arguments allowed" if @ARGV; |