about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-06-04 02:04:26 +0000
committerEric Wong <e@80x24.org>2019-06-04 10:06:18 +0000
commitfc17b626cf3b4425899ea5073621fbeb7f8be18c (patch)
tree8ba09e88bd96529b81d2e5926eaaefbb2b2de9a8
parent010fbd95d3916e20960d0aacea7dfc53502ff5ed (diff)
downloadpublic-inbox-fc17b626cf3b4425899ea5073621fbeb7f8be18c.tar.gz
I'm not sure what middlewares care for for SERVER_PORT; but
allowing non-ASCII digits seems non-sensical, here.
-rw-r--r--lib/PublicInbox/HTTP.pm2
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) {