diff options
Diffstat (limited to 'lib/PublicInbox/Repobrowse.pm')
-rw-r--r-- | lib/PublicInbox/Repobrowse.pm | 13 |
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; |