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

[nobody at bestpractical.com]

Author: clsung
Date: Thu May  8 02:48:26 2008
New Revision: 2832

Modified:
   trunk/lib/SVK/Project.pm

Log:
- better dir stringify

Modified: trunk/lib/SVK/Project.pm
==============================================================================
--- trunk/lib/SVK/Project.pm	(original)
+++ trunk/lib/SVK/Project.pm	Thu May  8 02:48:26 2008
@@ -294,13 +294,14 @@
 
 sub branch_path {
     my ($self, $bname, $is_local) = @_;
-    my $branch_path = '/'.$self->depot->depotname.'/'.
+    my $branch_path = 
         ($is_local ?
             $self->local_root."/$bname"
             :
             ($bname ne 'trunk' ?
                 $self->branch_location . "/$bname" : $self->trunk)
         );
+    $branch_path = '/'.dir($self->depot->depotname)->subdir($branch_path);
     return $branch_path;
 }