diff options
author | Eric Wong <e@80x24.org> | 2023-02-13 01:02:12 +0000 |
---|---|---|
committer | Eric Wong <e@80x24.org> | 2023-02-13 07:55:17 +0000 |
commit | dd029354eb69c4faf3160640828fd8e7b9403855 (patch) | |
tree | 5fe9b2c399175f31d0089111dcde60aa901f81cf /lib/PublicInbox/IMAPsearchqp.pm | |
parent | 431bb226ccd7b219ad79bd52090eac10d2aa1bb6 (diff) | |
download | public-inbox-dd029354eb69c4faf3160640828fd8e7b9403855.tar.gz |
Parse::RecDescent emits giant errors to STDERR by default (bypassing $SIG{__WARN__}, even). Shut it up since there's no good way to pass those back to a client, and we don't want clients flooding logs with bogus requests.
Diffstat (limited to 'lib/PublicInbox/IMAPsearchqp.pm')
-rw-r--r-- | lib/PublicInbox/IMAPsearchqp.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/PublicInbox/IMAPsearchqp.pm b/lib/PublicInbox/IMAPsearchqp.pm index 9f0c1205..0c37220c 100644 --- a/lib/PublicInbox/IMAPsearchqp.pm +++ b/lib/PublicInbox/IMAPsearchqp.pm @@ -1,4 +1,4 @@ -# Copyright (C) 2020-2021 all contributors <meta@public-inbox.org> +# Copyright (C) all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> # IMAP search query parser. cf RFC 3501 @@ -279,6 +279,8 @@ sub parse { my $sql = ''; %$q = (sql => \$sql, imap => $imap); # imap = PublicInbox::IMAP obj # $::RD_TRACE = 1; + local $::RD_ERRORS = undef; + local $::RD_WARN = undef; my $res = eval { $prd->search_key(uc($query)) }; return $@ if $@ && $@ =~ /\A(?:BAD|NO) /; return 'BAD unexpected result' if !$res || $res != $q; |