[svk-commit] r3053 - in trunk/lib/SVK: .

[nobody at bestpractical.com]

Author: clsung
Date: Sat Aug  2 22:50:13 2008
New Revision: 3053

Modified:
   trunk/lib/SVK/Command/Branch.pm
   trunk/lib/SVK/Project.pm

Log:
- as_foreign('Unix')

Modified: trunk/lib/SVK/Command/Branch.pm
==============================================================================
--- trunk/lib/SVK/Command/Branch.pm	(original)
+++ trunk/lib/SVK/Command/Branch.pm	Sat Aug  2 22:50:13 2008
@@ -370,7 +370,7 @@
     $self->{parent} = 1;
     for my $src_path (@src_paths) {
 	$src_path = $target->path unless $src_path;
-	$src_path = $target->_to_pclass("$src_path");
+	$src_path = $target->_to_pclass("$src_path",'Unix');
 	if ($target->_to_pclass("/local")->subsumes($src_path)) {
 	    $self->{local}++;
 	} else {
@@ -527,7 +527,7 @@
 
     for my $src (@srcs) {
 	my $src_branch_path = $proj->depotpath_in_branch_or_tag($src);
-	$src_branch_path =  '/'.dir($proj->depot->depotname,$proj->trunk)
+	$src_branch_path =  '/'.dir($proj->depot->depotname,$proj->trunk)->as_foreign('Unix')
 	    if $src eq 'trunk';
 	$src = $self->arg_depotpath($src_branch_path);
 

Modified: trunk/lib/SVK/Project.pm
==============================================================================
--- trunk/lib/SVK/Project.pm	(original)
+++ trunk/lib/SVK/Project.pm	Sat Aug  2 22:50:13 2008
@@ -314,9 +314,9 @@
 sub depotpath_in_branch_or_tag {
     my ($self, $name) = @_;
     # return 1 for branch, 2 for tag, others => 0
-    return '/'.dir($self->depot->depotname,$self->branch_location,$name)
+    return '/'.dir($self->depot->depotname,$self->branch_location,$name)->as_foreign('Unix')
 	if grep { $_ eq $name } @{$self->branches};
-    return '/'.dir($self->depot->depotname,$self->tag_location,$name)
+    return '/'.dir($self->depot->depotname,$self->tag_location,$name)->as_foreign('Unix')
 	if grep { $_ eq $name } @{$self->tags};
     return ;
 }