From 7d8cc28839176b7fa67c509aae2b4c050e3abbd1 Mon Sep 17 00:00:00 2001
From: Eric Wong <e@80x24.org>
Date: Fri, 26 Feb 2016 10:38:41 +0000
Subject: repobrowse: drop CGI support

We already dropped CGI from the master branch, drop it from
repobrowse as well to simplify code.
---
 lib/PublicInbox/Repobrowse.pm | 13 ++++---------
 1 file changed, 4 insertions(+), 9 deletions(-)

(limited to 'lib/PublicInbox/Repobrowse.pm')

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;
-- 
cgit v1.2.3-24-ge0c7