about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2017-01-21 04:41:06 +0000
committerEric Wong <e@80x24.org>2017-01-21 04:41:06 +0000
commita195b2a2195a27110df055153105743b80746b36 (patch)
tree62599de9c5c18370924d70cd68705218624fc2da
parentc47247dfdee80a8ad68039df7b95d3e900e31b54 (diff)
downloadpublic-inbox-a195b2a2195a27110df055153105743b80746b36.tar.gz
We must not drop the leading slash in the URI.  This
regression was introduced when we dropped Plack::Request
dependency.
-rw-r--r--lib/PublicInbox/RepobrowseGitAtom.pm1
-rw-r--r--t/repobrowse_git_atom.t1
2 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/RepobrowseGitAtom.pm b/lib/PublicInbox/RepobrowseGitAtom.pm
index f851ee36..c542281c 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 2525effd..4f0078eb 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);