diff options
author | Eric Wong <e@80x24.org> | 2023-01-29 22:58:34 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-01-30 06:42:39 +0000 |
commit | 9f73b58f78fdaa484241547c96d344bdf29fc7cb (patch) | |
tree | 7bf991b45c0267846e75735d3e7a1cb73a68e3d1 | |
parent | 859cafe15f4c6055f7944ae4ad2d0560c8249755 (diff) | |
download | public-inbox-9f73b58f78fdaa484241547c96d344bdf29fc7cb.tar.gz |
I just encountered this error in xt/lei-auth-fail.t
-rw-r--r-- | lib/PublicInbox/LeiInput.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/PublicInbox/LeiInput.pm b/lib/PublicInbox/LeiInput.pm index c258f824..b6c2b6bb 100644 --- a/lib/PublicInbox/LeiInput.pm +++ b/lib/PublicInbox/LeiInput.pm @@ -30,6 +30,8 @@ my %ERR = ( my ($label) = @_; length($label) >= $L_MAX and return "`$label' too long (must be <= $L_MAX)"; + $label =~ /[A-Z]/ and + return "`$label' must be lowercase"; $label =~ m{\A[a-z0-9_](?:[a-z0-9_\-\./\@,]*[a-z0-9])?\z} ? undef : "`$label' is invalid"; }, |