From c8ec9dfe6fdd7ab5e067168c37a845990863ab54 Mon Sep 17 00:00:00 2001
From: Petr Baudis <pasky@ucw.cz>
Date: Sun, 26 Aug 2007 01:22:38 +0200
Subject: [PATCH] Create http-alternates for grandparent forkees as well

---
 cgi/Git/RepoCGI.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cgi/Git/RepoCGI.pm b/cgi/Git/RepoCGI.pm
index f986b88..e22a6d4 100644
--- a/cgi/Git/RepoCGI.pm
+++ b/cgi/Git/RepoCGI.pm
@@ -333,7 +333,8 @@ sub _alternates_setup {
 
 	my $filename = $self->{path}.'/objects/info/http-alternates';
 	open X, '>'.$filename or die "http-alternates failed: $!";
-	print X "/r/$forkee_name.git\n";
+	my $upfork = $forkee_name;
+	do { print X "/r/$upfork.git/objects\n"; } while ($upfork =~ s#/?.+?$## and $upfork);
 	close X;
 	chmod 0664, $filename or warn "cannot chmod $filename: $!";
 
-- 
2.11.4.GIT