[svk-commit] r2929 - trunk/lib/SVK/Command

[nobody at bestpractical.com]

Author: nothingmuch
Date: Mon Jun 23 02:39:14 2008
New Revision: 2929

Modified:
   trunk/lib/SVK/Command/Branch.pm

Log:
Improve the default br --create --tag message to say "Create tag" not "Create branch"

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Mon Jun 23 02:39:14 2008
@@ -283,7 +283,7 @@
 	    $branch_name, $self->{local} ? '(in local)' : '');
 
     $self->{parent} = 1;
-    $self->{message} ||= "- Create branch $branch_name";
+    $self->{message} ||= join(" ", "- Create", ($self->{tag} ? "tag" : "branch"), $branch_name);
     my $ret = $self->SUPER::run($src, $dst);
 
     if (!$ret) {