From: Eric Wong <e@80x24.org>
Date: Sat, 21 Jan 2017 04:41:06 +0000 (+0000)
Subject: repobrowse: fix full URL generation in Atom feed
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=a195b2a2195a27110df055153105743b80746b36;p=thirdparty%2Fpublic-inbox.git

repobrowse: fix full URL generation in Atom feed

We must not drop the leading slash in the URI.  This
regression was introduced when we dropped Plack::Request
dependency.
---

diff --git a/lib/PublicInbox/RepobrowseGitAtom.pm b/lib/PublicInbox/RepobrowseGitAtom.pm
index f851ee369..c542281c0 100644
--- a/lib/PublicInbox/RepobrowseGitAtom.pm
+++ b/lib/PublicInbox/RepobrowseGitAtom.pm
@@ -22,7 +22,6 @@ sub repo_root_url {
 	my $uri = $env->{REQUEST_URI};
 	$uri =~ s/\?.+\z//; # no query string
 	my @uri = split(m!/+!, $uri);
-	shift @uri; # leading slash
 	my @extra = @{$req->{extra}};
 	while (@uri && @extra && $uri[-1] eq $extra[-1]) {
 		pop @uri;
diff --git a/t/repobrowse_git_atom.t b/t/repobrowse_git_atom.t
index 2525effda..4f0078ebb 100644
--- a/t/repobrowse_git_atom.t
+++ b/t/repobrowse_git_atom.t
@@ -28,6 +28,7 @@ test_psgi($test->{app}, sub {
 	$res = $cb->(GET($req . '/foo.txt'));
 	is($res->code, 200, 'got 200');
 	$body = dechunk($res);
+	like($body, qr{\bhref="http://[^/]+/test\.git/}, 'hrefs OK');
 	SKIP: {
 		skip 'XML::Feed missing', 2 unless $have_xml_feed;
 		my $p = XML::Feed->parse(\$body);