about summary refs log tree commit homepage
diff options
context:
space:
mode:
authorEric Wong <e@80x24.org>2019-06-04 08:32:27 +0000
committerEric Wong <e@80x24.org>2019-06-04 10:06:18 +0000
commitfc483fde5dc78d7e6b230527e375c5f421997565 (patch)
tree2630d18af02c58390a00bfa95f7e944b2506fe3e
parentfc17b626cf3b4425899ea5073621fbeb7f8be18c (diff)
downloadpublic-inbox-fc483fde5dc78d7e6b230527e375c5f421997565.tar.gz
We only care about the hostname portion for matching,
so this change is probably inconsequential.
-rw-r--r--lib/PublicInbox/WwwListing.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/PublicInbox/WwwListing.pm b/lib/PublicInbox/WwwListing.pm
index e8dad4b8..e1473b3d 100644
--- a/lib/PublicInbox/WwwListing.pm
+++ b/lib/PublicInbox/WwwListing.pm
@@ -24,8 +24,8 @@ sub list_match_domain ($$) {
         my ($self, $env) = @_;
         my @list;
         my $host = $env->{HTTP_HOST} // $env->{SERVER_NAME};
-        $host =~ s/:\d+\z//;
-        my $re = qr!\A(?:https?:)?//\Q$host\E(?::\d+)?/!i;
+        $host =~ s/:[0-9]+\z//;
+        my $re = qr!\A(?:https?:)?//\Q$host\E(?::[0-9]+)?/!i;
         $self->{pi_config}->each_inbox(sub {
                 my ($ibx) = @_;
                 push @list, $ibx if !$ibx->{-hide}->{www} && $ibx->{url} =~ $re;