[svk-commit] r2561 - branches/bm/lib/SVK

[nobody at bestpractical.com]

Author: clsung
Date: Thu Oct 25 03:19:20 2007
New Revision: 2561

Modified:
   branches/bm/lib/SVK/Project.pm

Log:
- fix when path is 'mirror/MyProject/trunk'

Modified: branches/bm/lib/SVK/Project.pm
==============================================================================
--- branches/bm/lib/SVK/Project.pm	(original)
+++ branches/bm/lib/SVK/Project.pm	Thu Oct 25 03:19:20 2007
@@ -141,7 +141,7 @@
     my ($mirror_path,$project_name);
     my ($trunk_path, $branch_path, $tag_path);
     my $depotname = $path_obj->depot->depotname;
-    my ($path) = $path_obj->depotpath =~ m{^/$depotname/(.*)/?$};
+    my ($path) = $path_obj->depotpath =~ m{^/$depotname/(.*?)(?:/(?:trunk|branches|tags))?/?$};
     while (!$project_name) {
 	($mirror_path,$project_name) = # always assume the last entry the projectname
 	    $path =~ m{^(.*)/([\w\-_]+)$};