[svk-commit] r2870 - in trunk: t/bm

nobody at bestpractical.com nobody at bestpractical.com
Mon May 12 11:21:22 EDT 2008


Author: clsung
Date: Mon May 12 11:21:20 2008
New Revision: 2870

Modified:
   trunk/lib/SVK/Command/Branch.pm
   trunk/t/bm/merge.t

Log:
- --from is removd from --push, so did t/merge.t
- fix bug

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Mon May 12 11:21:20 2008
@@ -531,7 +531,6 @@
 	    die loc("No such branch/tag exists: %1\n", $src->path)
 		if ($SVN::Node::dir != $target->root->check_path($src->path)) ;
 	}
-	$self->{from} = 0;
 	$self->{from_path} = $src->depotpath;
     }
 
@@ -731,7 +730,7 @@
 	last if $trunk_path;
     }
 
-    my $proj = $self->load_project($self->arg_depotpath('/'.$target->_to_pclass($target->depot->depotname)->subdir($preceding_path)));
+    my $proj = $self->load_project($self->arg_depotpath('/'.$target->depot->depotname.$preceding_path));
 
     if ($proj && $fromProp) {
 	$logger->info( loc("Project already set in properties: %1\n", $target->depotpath));

Modified: trunk/t/bm/merge.t
==============================================================================
--- trunk/t/bm/merge.t	(original)
+++ trunk/t/bm/merge.t	Mon May 12 11:21:20 2008
@@ -204,5 +204,5 @@
      "Checking locally against mirror source $uri.", 'U   B/S/Q/qu',
      qr'New merge ticket: [\w\d-]+:/branches/merge/foo3:25']);
 
-is_output ($svk, 'branch', ['--push', '-C', '--from', 'merge/foo3'],
+is_output ($svk, 'branch', ['--push', '-C', 'merge/foo3'],
     [(split /\n/, $pushOutputs)]);


More information about the svk-commit mailing list