[svk-commit] r2886 - trunk/lib/SVK

[nobody at bestpractical.com]

Author: clsung
Date: Sat May 17 06:37:46 2008
New Revision: 2886

Modified:
   trunk/lib/SVK/Project.pm

Log:
- fix --project in non-wc path 

Modified: trunk/lib/SVK/Project.pm
==============================================================================
--- trunk/lib/SVK/Project.pm	(original)
+++ trunk/lib/SVK/Project.pm	Sat May 17 06:37:46 2008
@@ -132,13 +132,19 @@
     my $root            = $fs->revision_root( $fs->youngest_rev );
     my @all_mirrors     = split "\n", $root->node_prop('/','svm:mirror') || '';
     my $prop_path = '/';
+    my $proj;
     foreach my $m_path (@all_mirrors) {
-        if ($pathobj->path =~ m/^$m_path/) {
-            $prop_path = $m_path;
-            last;
-        }
+	if ($pathobj->path eq '/') { # in non-wc path
+	    $proj = $self->_create_from_prop($pathobj, $root, $m_path, $pname);
+	    return $proj if $proj;
+	} else {
+	    if ($pathobj->path =~ m/^$m_path/) {
+		$prop_path = $m_path;
+		last;
+	    }
+	}
     }
-    my $proj = $self->_create_from_prop($pathobj, $root, $prop_path, $pname);
+    $proj = $self->_create_from_prop($pathobj, $root, $prop_path, $pname);
     return $proj if $proj;
     return $self->_create_from_prop($pathobj, $root, $prop_path, $pname, 1);
 }