cgi: do not decode path_info

We only generate URI-escaped URLs, so we should not be decoding this
into octets.

diff --git a/public-inbox.cgi b/public-inbox.cgi
index 7f7e59ca6e0a50b30a629b9240736fc3f5aa7bee..7da73754a3852c81f1c696d888e1711a0f9422a3 100755 (executable)
--- a/public-inbox.cgi
+++ b/public-inbox.cgi
@@ -13,10 +13,8 @@ use 5.008;
 use strict;
 use warnings;
 use CGI qw(:cgi -nosticky); # PSGI/FastCGI/mod_perl compat
-use Encode qw(find_encoding);
 use PublicInbox::Config;
 use URI::Escape qw(uri_escape_utf8 uri_unescape);
-our $enc_utf8 = find_encoding('UTF-8');
 our $LISTNAME_RE = qr!\A/([\w\.\-]+)!;
 our $pi_config;
 BEGIN {
@@ -53,10 +51,10 @@ sub main {
        if ($method !~ /\AGET|HEAD\z/) {
                return r(405, 'Method Not Allowed');
        }
-       my $path_info = $enc_utf8->decode($cgi->path_info);
+       my $path_info = $cgi->path_info;
 
        # top-level indices and feeds
-       if ($path_info eq "/") {
+       if ($path_info eq '/') {
                r404();
        } elsif ($path_info =~ m!$LISTNAME_RE\z!o) {
                invalid_list(\%ctx, $1) || redirect_list_index(\%ctx, $cgi);