diff options
author | Eric Wong <e@80x24.org> | 2019-06-04 08:32:27 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2019-06-04 10:06:18 +0000 |
commit | fc483fde5dc78d7e6b230527e375c5f421997565 (patch) | |
tree | 2630d18af02c58390a00bfa95f7e944b2506fe3e /lib/PublicInbox | |
parent | fc17b626cf3b4425899ea5073621fbeb7f8be18c (diff) | |
download | public-inbox-fc483fde5dc78d7e6b230527e375c5f421997565.tar.gz |
We only care about the hostname portion for matching, so this change is probably inconsequential.
Diffstat (limited to 'lib/PublicInbox')
-rw-r--r-- | lib/PublicInbox/WwwListing.pm | 4 |
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; |