From 8c978d76179b4f573c1eb9b9bb9db966c81330bb Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@lxr.linpro.no>
Date: Thu, 15 Nov 2007 21:51:00 +0100
Subject: Too many changes...

---
 lib/LXRng/Repo/Git.pm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

(limited to 'lib/LXRng/Repo/Git.pm')

diff --git a/lib/LXRng/Repo/Git.pm b/lib/LXRng/Repo/Git.pm
index 2d6ea33..757da26 100644
--- a/lib/LXRng/Repo/Git.pm
+++ b/lib/LXRng/Repo/Git.pm
@@ -74,7 +74,7 @@ sub allversions {
 }
 
 sub node {
-    my ($self, $path, $release) = @_;
+    my ($self, $path, $release, $rev) = @_;
 
     $path =~ s,^/+,,;
     $path =~ s,/+$,,;
@@ -88,14 +88,21 @@ sub node {
 	return LXRng::Repo::Git::Directory->new($self, '', $ref);
     }
 
-    my $git = $self->_git_cmd('ls-tree', $release, $path);
-    my ($mode, $type, $ref, $gitpath) = split(" ", <$git>);
+    my $type;
+    if ($rev) {
+	$type = 'blob';
+    }
+    else {
+	my $git = $self->_git_cmd('ls-tree', $release, $path);
+	my ($mode, $gitpath);
+	($mode, $type, $rev, $gitpath) = split(" ", <$git>);
+    }
 
     if ($type eq 'tree') {
-	return LXRng::Repo::Git::Directory->new($self, $path, $ref, $release);
+	return LXRng::Repo::Git::Directory->new($self, $path, $rev, $release);
     }
     elsif ($type eq 'blob') {
-	return LXRng::Repo::Git::File->new($self, $path, $ref, $release);
+	return LXRng::Repo::Git::File->new($self, $path, $rev, $release);
     }
     else {
 	return undef;
-- 
cgit v1.2.3