[svk-commit] r2559 - branches/bm/lib/SVK/Command

[nobody at bestpractical.com]

Author: clsung
Date: Thu Oct 25 01:26:10 2007
New Revision: 2559

Modified:
   branches/bm/lib/SVK/Command/Branch.pm

Log:
- add $self->{parent}, $self->{message}

Modified: branches/bm/lib/SVK/Command/Branch.pm
==============================================================================
--- branches/bm/lib/SVK/Command/Branch.pm	(original)
+++ branches/bm/lib/SVK/Command/Branch.pm	Thu Oct 25 01:26:10 2007
@@ -104,6 +104,10 @@
 	$source->path
     );
 
+    if (!$proj) {
+	print loc("No project branch founded.\n");
+	return;
+    }
     # need to beautify the output
     use Data::Dumper;
     warn Dumper $proj->branches() if $proj; 
@@ -148,6 +152,8 @@
     my $src = $self->arg_uri_maybe($trunk_path);
     my $dst = $self->arg_depotpath($newbranch_path);
 
+    $self->{parent} = 1;
+    $self->{message} ||= "- Create branch $branch_path";
     my $ret = $self->SUPER::run($src, $dst);
 
     if (!$ret) {