[svk-commit] r3131 - in branches/git-storage/lib/SVK: Root

[nobody at bestpractical.com]

Author: clsung
Date: Tue Nov  4 05:16:14 2008
New Revision: 3131

Modified:
   branches/git-storage/lib/SVK/Root/Checkout.pm
   branches/git-storage/lib/SVK/Test.pm

Log:
- make $path useable in SVK/Test.pm
- skip get_revision_root part when isa('SVK::Root::Git')

Modified: branches/git-storage/lib/SVK/Root/Checkout.pm
==============================================================================
--- branches/git-storage/lib/SVK/Root/Checkout.pm	(original)
+++ branches/git-storage/lib/SVK/Root/Checkout.pm	Tue Nov  4 05:16:14 2008
@@ -184,6 +184,8 @@
     from_native($copath);
     $copath = abs2rel($path, $self->path->path_anchor => $copath);
     to_native($copath);
+    return ($copath, $self->path->source->root)
+        if $self->path->source->root->isa ('SVK::Root::Git');
     my $root;
     ($root, $_[1]) = $self->path->source->root->get_revision_root
 	($path, $self->path->xd->{checkout}->get($copath, 1)->{revision}, $pool);

Modified: branches/git-storage/lib/SVK/Test.pm
==============================================================================
--- branches/git-storage/lib/SVK/Test.pm	(original)
+++ branches/git-storage/lib/SVK/Test.pm	Tue Nov  4 05:16:14 2008
@@ -541,6 +541,8 @@
     my $response;
     my $initial_cwd = getcwd;
     $repospath =~ s{/\.git/?$}{};
+    $repospath = $repospath . "$path";
+    mkdir ($repospath);
 
     overwrite_file($repospath.'/me',
 			"first line in me$/2nd line in me$/");