repobrowse: drop CGI support

We already dropped CGI from the master branch, drop it from
repobrowse as well to simplify code.

1 files changed, 4 insertions, 9 deletions

diff --git a/lib/PublicInbox/Repobrowse.pm b/lib/PublicInbox/Repobrowse.pm
index 219b44d6..91d0ab20 100644
--- a/lib/PublicInbox/Repobrowse.pm
+++ b/lib/PublicInbox/Repobrowse.pm
@@ -42,16 +42,11 @@ sub r { [ $_[0], ['Content-Type' => 'text/plain'], [ join(' ', @_, "\n") ] ] }
 # (e.g. curl does not follow 301 unless given "-L")
 my %NO_TSLASH = map { $_ => 1 } qw(Log Commit Tree Summary Tag);
 sub no_tslash {
-        my ($cgi) = @_;
+        my ($cgi) = @_; # Plack::Request
         my ($base, $uri);
-        if (ref($cgi) eq 'CGI') {
-                $base = $cgi->url(-base);
-                $uri = $ENV{REQUEST_URI};
-        } else { # Plack::Request
-                $base = $cgi->base;
-                $base =~ s!/+\z!!;
-                $uri = $cgi->request_uri;
-        }
+        $base = $cgi->base;
+        $base =~ s!/+\z!!;
+        $uri = $cgi->request_uri;
         my $qs = '';
         if ($uri =~ s/(\?.+)\z//) {
                 $qs = $1;