[svk-commit] r2654 - in branches/bm: t/bm

nobody at bestpractical.com nobody at bestpractical.com
Fri Dec 21 10:23:49 EST 2007


Author: clsung
Date: Fri Dec 21 10:23:41 2007
New Revision: 2654

Modified:
   branches/bm/lib/SVK/Command.pm
   branches/bm/lib/SVK/Project.pm
   branches/bm/t/bm/prop-autoload.t

Log:
- remove '/mirror/' from property
- preserve depotroot for bm in svk checkout 

Modified: branches/bm/lib/SVK/Command.pm
==============================================================================
--- branches/bm/lib/SVK/Command.pm	(original)
+++ branches/bm/lib/SVK/Command.pm	Fri Dec 21 10:23:41 2007
@@ -473,6 +473,7 @@
 
     # try to get prop of project first
     #
+    my ($project_depot_root) = $path =~ m{^(/[^/]*/[^/]+)/};
     $uri =~ s/\/$//;
     my $ra = SVN::Ra->new($uri);
     my %prop = %{ ($ra->get_file('',$ra->get_latest_revnum, undef))[1] };
@@ -504,7 +505,7 @@
 		qr(^\d+$)
 		));
 	    $proj_answer--;
-	    $path = $projects{$projs[$proj_answer]};
+	    $path = $project_depot_root.$projects{$projs[$proj_answer]};
 	}
     }
 

Modified: branches/bm/lib/SVK/Project.pm
==============================================================================
--- branches/bm/lib/SVK/Project.pm	(original)
+++ branches/bm/lib/SVK/Project.pm	Fri Dec 21 10:23:41 2007
@@ -133,7 +133,7 @@
     
     for my $project_name (keys %projnames)  {
 	my %props = 
-	    map { $_ => $allprops->{'svk:project:'.$project_name.':'.$_} }
+	    map { $_ => '/mirror'.$allprops->{'svk:project:'.$project_name.':'.$_} }
 		('path-trunk', 'path-branches', 'path-tags');
     
 	# only the current path matches one of the branches/trunk/tags, the project

Modified: branches/bm/t/bm/prop-autoload.t
==============================================================================
--- branches/bm/t/bm/prop-autoload.t	(original)
+++ branches/bm/t/bm/prop-autoload.t	Fri Dec 21 10:23:41 2007
@@ -17,9 +17,9 @@
 my ($copath, $corpath) = get_copath('basic-trunk');
 
 my $props = { 
-    'svk:project:projectA:path-trunk' => '/mirror/projectA/trunk',
-    'svk:project:projectA:path-branches' => '/mirror/projectA/branches',
-    'svk:project:projectA:path-tags' => '/mirror/projectA/tags',
+    'svk:project:projectA:path-trunk' => '/projectA/trunk',
+    'svk:project:projectA:path-branches' => '/projectA/branches',
+    'svk:project:projectA:path-tags' => '/projectA/tags',
 };
 
 add_prop_to_basic_tree($xd, '/test/',$props);


More information about the svk-commit mailing list