X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=t%2Fgit-http-backend.psgi;h=e34ebe4018a418578b1f6bdd8d67211bd689c909;hb=2fc67a18b7ccd75ea6eb945f18203cbf4bcf228f;hp=8cec7d35365b69ac1fd42fedbd585c92df0e39e3;hpb=1bd4f49d3e6e19f71d170058cc8c6cb466dc5b9f;p=public-inbox.git
diff --git a/t/git-http-backend.psgi b/t/git-http-backend.psgi
index 8cec7d35..e34ebe40 100644
--- a/t/git-http-backend.psgi
+++ b/t/git-http-backend.psgi
@@ -1,23 +1,20 @@
#!/usr/bin/perl -w
-# Copyright (C) 2016 all contributors
+# Copyright (C) 2016-2020 all contributors
# License: AGPL-3.0+
use strict;
use warnings;
use PublicInbox::GitHTTPBackend;
use PublicInbox::Git;
use Plack::Builder;
-use Plack::Request;
use BSD::Resource qw(getrusage);
my $git_dir = $ENV{GIANT_GIT_DIR} or die 'GIANT_GIT_DIR not defined in env';
my $git = PublicInbox::Git->new($git_dir);
builder {
- enable 'Chunked' if $ENV{TEST_CHUNK};
enable 'Head';
sub {
my ($env) = @_;
- my $pr = Plack::Request->new($env);
- if ($pr->path_info =~ m!\A/(.+)\z!s) {
- PublicInbox::GitHTTPBackend::serve($pr, $git, $1);
+ if ($env->{PATH_INFO} =~ m!\A/(.+)\z!s) {
+ PublicInbox::GitHTTPBackend::serve($env, $git, $1);
} else {
my $ru = getrusage();
my $b = $ru->maxrss . "\n";