diff options
author | Eric Wong <e@80x24.org> | 2019-06-04 02:04:26 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-06-04 10:06:18 +0000 |
commit | fc17b626cf3b4425899ea5073621fbeb7f8be18c (patch) | |
tree | 8ba09e88bd96529b81d2e5926eaaefbb2b2de9a8 /lib/PublicInbox/HTTP.pm | |
parent | 010fbd95d3916e20960d0aacea7dfc53502ff5ed (diff) | |
download | public-inbox-fc17b626cf3b4425899ea5073621fbeb7f8be18c.tar.gz |
I'm not sure what middlewares care for for SERVER_PORT; but allowing non-ASCII digits seems non-sensical, here.
Diffstat (limited to 'lib/PublicInbox/HTTP.pm')
-rw-r--r-- | lib/PublicInbox/HTTP.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/HTTP.pm b/lib/PublicInbox/HTTP.pm index 10e6d6a4..977614b4 100644 --- a/lib/PublicInbox/HTTP.pm +++ b/lib/PublicInbox/HTTP.pm @@ -142,7 +142,7 @@ sub app_dispatch { $env->{REMOTE_ADDR} = $self->{remote_addr}; $env->{REMOTE_PORT} = $self->{remote_port}; if (my $host = $env->{HTTP_HOST}) { - $host =~ s/:(\d+)\z// and $env->{SERVER_PORT} = $1; + $host =~ s/:([0-9]+)\z// and $env->{SERVER_PORT} = $1; $env->{SERVER_NAME} = $host; } if (defined $input) { |