diff options
| author | Eric Wong <e@80x24.org> | 2021-03-26 09:51:26 +0000 |
|---|---|---|
| committer | Eric Wong <e@80x24.org> | 2021-03-26 23:08:24 +0000 |
| commit | 0c1a911235f99ea3469c69a4297e544fe5301bfa (patch) | |
| tree | eb1f4255e1d84271eb56c053dc80307de76f537d /lib/PublicInbox/LeiMark.pm | |
| parent | 65ec1f78464ce8cf4f6379aca7bbae38743c50f0 (diff) | |
| download | public-inbox-0c1a911235f99ea3469c69a4297e544fe5301bfa.tar.gz | |
'!' could wreak havoc if exposed to a shell like bash. It seems like a rare character for use in file/directory/mailbox names.
Diffstat (limited to 'lib/PublicInbox/LeiMark.pm')
| -rw-r--r-- | lib/PublicInbox/LeiMark.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/PublicInbox/LeiMark.pm b/lib/PublicInbox/LeiMark.pm index 7a2ccf77..6d236411 100644 --- a/lib/PublicInbox/LeiMark.pm +++ b/lib/PublicInbox/LeiMark.pm @@ -23,7 +23,7 @@ my %ERR = ( my ($label) = @_; length($label) >= $L_MAX and return "`$label' too long (must be <= $L_MAX)"; - $label =~ m{\A[a-z0-9_][a-z0-9_\-\./\@\!,]*[a-z0-9]\z} ? + $label =~ m{\A[a-z0-9_][a-z0-9_\-\./\@,]*[a-z0-9]\z} ? undef : "`$label' is invalid"; }, kw => sub { |