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

[nobody at bestpractical.com]

Author: clsung
Date: Tue Dec 18 02:45:21 2007
New Revision: 2645

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

Log:
- change the order of 'return undef if no prop found' and retrieving $mirror_rootpath

Modified: branches/bm/lib/SVK/Project.pm
==============================================================================
--- branches/bm/lib/SVK/Project.pm	(original)
+++ branches/bm/lib/SVK/Project.pm	Tue Dec 18 02:45:21 2007
@@ -130,10 +130,10 @@
 #	grep { $_ ne $project_name && (($project_name) = $_) }
 	grep { $_ =~ s/^svk:project:([^:]+):.*$/$1/ }
 	grep { $allprops->{$_} =~ /$depotroot/ } sort keys %{$allprops};
-    my $mirror_rootpath = $pathobj->mirror_source->path."/";
     
     return undef unless @projnames;
     
+    my $mirror_rootpath = $pathobj->mirror_source->path."/";
     my ($relative_path) = $pathobj->path =~ m/^$mirror_rootpath\b(.*)/;
     my ($project_name) = grep { $relative_path =~ /\b$_\b/} @projnames;