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

[nobody at bestpractical.com]

Author: clsung
Date: Tue Nov  6 05:29:13 2007
New Revision: 2589

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

Log:
- when --local, switch to local branch

Modified: branches/bm/lib/SVK/Command/Branch.pm
==============================================================================
--- branches/bm/lib/SVK/Command/Branch.pm	(original)
+++ branches/bm/lib/SVK/Command/Branch.pm	Tue Nov  6 05:29:13 2007
@@ -299,8 +299,12 @@
     );
 
     my $newtarget_path = '/'.$proj->depot->depotname.'/'.
-	($new_path ne 'trunk' ?
-	    $proj->branch_location . "/$new_path/" : $proj->trunk);
+        ($self->{local} ?
+	    $proj->local_root."/$new_path"
+	    :
+	    ($new_path ne 'trunk' ?
+		$proj->branch_location . "/$new_path/" : $proj->trunk)
+	);
 
     $self->SUPER::run(
 	$self->arg_uri_maybe($newtarget_path),