config: allow underscore in section names

[public-inbox.git] / lib / PublicInbox / Config.pm

diff --git a/lib/PublicInbox/Config.pm b/lib/PublicInbox/Config.pm
index 8da00b0a818d1e44d0248d00cd39564d4fb1a919..353a1fb2e3cdf73aee25237dfa2de968a848ce2a 100644 (file)
--- a/lib/PublicInbox/Config.pm
+++ b/lib/PublicInbox/Config.pm
@@ -45,7 +45,7 @@ sub lookup {
        my $pfx;
 
        foreach my $k (keys %$self) {
-               $k =~ /\A(publicinbox\.[A-Z0-9a-z-]+)\.address\z/ or next;
+               $k =~ /\A(publicinbox\.[\w-]+)\.address\z/ or next;
                my $v = $self->{$k};
                if (ref($v) eq "ARRAY") {
                        foreach my $alias (@$v) {