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

[nobody at bestpractical.com]

Author: clsung
Date: Sat Aug  2 05:03:53 2008
New Revision: 3048

Modified:
   trunk/lib/SVK/Project.pm

Log:
- as_foreign('Unix');
  - to be the same as SVK::Path::Checkout

Modified: trunk/lib/SVK/Project.pm
==============================================================================
--- trunk/lib/SVK/Project.pm	(original)
+++ trunk/lib/SVK/Project.pm	Sat Aug  2 05:03:53 2008
@@ -341,7 +341,8 @@
             ($bname ne 'trunk' ?
                 $self->branch_location . "/$bname" : $self->trunk)
         );
-    $branch_path = '/'.dir($self->depot->depotname)->subdir($branch_path);
+    $branch_path =
+	'/'.dir($self->depot->depotname)->subdir($branch_path)->as_foreign('Unix');
     return $branch_path;
 }
 
@@ -359,7 +360,8 @@
 sub tag_path {
     my ($self, $tname) = @_;
     my $tag_path = ($tname ne 'trunk' ?  $self->tag_location . "/$tname" : $self->trunk);
-    $tag_path = '/'.dir($self->depot->depotname)->subdir($tag_path);
+    $tag_path =
+	'/'.dir($self->depot->depotname)->subdir($tag_path)->as_foreign('Unix');
     return $tag_path;
 }